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PREFACE 


Since  the  beginning  of  time,  man  has  searched  for  answers  to 
questions  about  himself  and  the  world  in  which  he  lives.  Out  of  this 
search  have  been  born  the  many  fields  of  science  we  know  today.  Most 
of  these  sciences  had  their  beginnings  with  the  ancient  Babylonians, 
Egyptians,  Phoenicians,  and  Greeks.  By  the  4th  century  B.C.,  Biology 
and  Physics  had  begun,  while  Astronomy  and  Mathematics  were  well  es¬ 
tablished  sciences.  Even  applied  sciences  L,uch  as  Medicine  and 
Engineering  had  begun  to  emerge. 

Often  shrouded  in  mysticism,  or  dominated  by  religious  and 
political  thought,  science  seemed  to  advance  cr  decline  as  a  body. 

During  periods  of  advancement  in  one  field,  similar  gains  are  often 
found  in  others;  progress  in  Astronomy  and  Biology,  for  example,  was 
stimulated  by  the  optical  discoveries  of  the  telescope  and  microscope. 
During  the  rise  of  Greek  science,  an  interesting  dichotomy  appeared. 
Observation,  which  played  a  minor  role  in  Astronomy  and  Physics,  be¬ 
came  prominent  in  Medicine.  Hippocrates  and  Aristotle,  the  two  Greeks 
of  the  period  most  interested  in  the  life-sciences  had  little  to  do 
with  Mathematics.  Living  things  became  exempt  from  mathematical 
treatment,  and  Medicine  became  the  province  of  the  non-mathematician  [1]  , 
Now,  over  2000  years  later,  the  medical  scientist  has  found  a  very 
mathematical  tool  to  aid  him  in  his  work  -  the  digital  computer. 

Probably  the  first  stored  program  electronic  computer  was  the 
EDSAC  developed  at  Cambridge  University  in  1949.  Primarily  designed 
to  solve  differential  equations,  early  computers  were  strictly  within 
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the  realm  of  the  mathematician.  As  computers  became  more  powerful 
and  easier  to  use,  their  use  became  more  general  in  other  disciplines. 

In  1956,  the  Air  Research  and  Development  Command  of  the  U.S.  Air 
Force  sponsored  an  investigation  to  explore  the  possible  uses  of  the 
computer  in  medical  research  [2]  . 

In  1956,  the  National  Aeronautics  and  Space  Administration  pub¬ 
lished  a  report  on  the  uses  of  the  computer  in  the  medical  field.  By 
this  time  computers  had  been  used  in  medical  diagnosis,  analog  simul¬ 
ation  of  physical  systems,  handling  of  medical  records,  and  teaching  [3]. 
Since  the  time  of  that  report,  the  use  of  the  computer  in  medicine  has 
been  extended  to  include  other  administrative  tasks,  statistical 
analysis,  and  patient  monitoring  [4]. 

The  use  of  the  computer  to  understand  the  physical  phenomena  of 
the  human  body  is  still  a  relatively  untouched  field.  There  are 
many  systems  within  the  human  body  that  cannot  be  completely  under¬ 
stood  using  the  physician's  prime  tool,  observation.  One  of  the  most 
important  of  these  is  the  human  circulatory  system.  Although  a 
great  body  of  knowledge  has  been  built  up  through  the  years ,  there  are 
still  a  great  many  unknowns  about  the  way  blood  flows  through  the 
body.  Conventional  means  of  measurement  cannot  answer  these  questions, 
because  the  act  of  introducing  a  measurement  device  into  the  system 
usually  changes  its  characteristics. 

By  constructing  a  realistic  mathematical  model,  the  scientist 
can  use  the  digital  computer  to  see  into  previously  unknown  worlds, 
and  find  significant  answers  to  problems  regarding  the  circulatory 
system.  The  mathematician,  with  the  aid  of  the  digital  computer,  has 
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ABSTRACT 


The  research  presented  here  is  part  of  a  continuing  project  at 
the  University  of  Utah,  involved  in  the  study  of  blood  flow  phenomena 
in  the  human  body.  These  studies  involve  the  solution  of  a  system  of 
non-linear,  partial  differential  equations  known  as  the  Navier-Stokes 
equations.  Analytic  solutions  to  these  equations  exist  only  for  a 
few  special  ca.ses,  therefore,  numerical  techniques  have  been  developed 
for  approximating  them.  A  particular  requirement  for  hemodynamic 
studies  is  that  a  solution  technique  exists  which  allows  flexible, 
arbitrarily  shaped,  no-slip  boundaries  to  be  defined  in  the  model  being 
studied.  The  technique  which  is  developed  in  this  report  allows 
that  kind  of  definition.  It  is  a  finite  difference  technique,  based 
on  the  Marker  and  Cell  method  developed  at  Los  Alamos  Scientific 
Laboratory. 

Because  such  methods  are  typically  large  and  cumbersome,  the 
efficient  implementation  of  this  new  technique  was  taken  on  as  a 
concvirrent  investigation.  The  use  of  interactive  computer  graphics 

provides  the  user  with  the  best  approach  to  an  efficient  implementa- 

i  oh 

topn,  _if  it  is  applied  in  the  right  way. 

Techniques  for  applying  interactive  computer  graphics  to  the 
solution  of  hemodynamics  problems  involving  flexible,  arbitrarily 


*This  report  reproduces  a  dissertation  of  the  same  title  submitted  to 
the  Department  of  Electrical  Engineering,  University  of  Utah  in 
partial  fulfillment  of  the  requirements  for  the  degree  of  Doctor 
of  Philosophy. 
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shaped,  no-slip  boundaries  are  demonstrated  for  a  particular  problem 


This  problem  involves  the  study  of  blood  flow  through  a  ball-type 


prosthetic  heart  valve.  The  results  of  this  study  agree  closely  with 


known  experimental  studies 


CHAPTER  ONE 


INTRODUCTION 

The  research  reported  on  here  is  part  of  an  on-going  project  at 
the  University  of  Utah,  committed  to  the  study  of  blood  flow  phenomena 
in  the  human  circulatory  system  [5].  Topics  of  current  interest  in 
this  area  include  the  formation  of  atherosclerotic  plaques,  and  the 
problems  associated  with  blood  flow  through  artificial  heart  valves  [6] . 
The  numerical  solution  of  this  type  of  problem  involves  the  solution 
of  a  system  of  non-linear  partial  differential  equations.  This  set  of 
equations,  known  as  the  Navier-Stokes  equations  is  extremely  difficult 
to  solve.  Analytic  solutions  exist  for  only  a  few  well  known  special 
cases,  where  the  proper  assumptions  reduce  the  equations  to  a  solvable 
form. 

In  recent  years,  numerical  techniques  have  been  developed  which, 
with  the  aid  of  the  digital  computer,  can  find  solutions  to  a 
broader  class  of  fluid  problems.  Even  these  techniques  however,  take- 
advantage  of  special  cases:  straight  walls,  two-dimensional  flow, 
symmetry,  etc.  They  are  typically  finite  difference  techniques, 
and  as  such  require  large  amounts  of  computer  storage  and  large 
execution  times.  As  the  problem  becomes  more  and  more  complex,  the 
storage  and  run  time  requirements  of  the  problem  grow  very,  very  fast. 
For  example,  in  a  recent  work  reported  on  by  Hirt  and  Cook  [7]  ,  a 
three-dimensional  problem  of  limited  resolution  (15  computing  cells 
on  a  side)  required  64,000  words  of  high  speed  store  on  a  CDC-7600  com¬ 


puter. 
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Although  numerical  techniques  are  becoming  more  powerful  and  more 
sophisticated,  the  trend  seems  to  be  for  these  techniques  to  rely 
heaviJ.y  on  the  brute-force  speed  and  large  memory  capacity  of  today  s 
super -computers .  They  tend  to  neglect  the  more  elegant  features 
available  on  modern  computing  systems.  It  would  seem  that  a  certain 
level  of  sophistication  would  allow  such  problems  to  \>e  run  much  more 
effectively.  This  does  not  mean  that  the  goal  here  is  to  produce  a 
faster  piece  of  code,  but  rather  one  which  is  more  efficient  in  its 
use  of  total  machine  resources.  One  way  that  this  can  be  done  is  to 
give  the  user  the  capability  to  visually  interact  with  his  program. 

Interactive  computer  graphics  is  certainly  not  a  magic  formula 
which  will  make  a  computation  easier.  In  fact,  if  poorly  designed,  a 
programming  system  using  interactive  computer  graphics  may  prove  to 
be  a  serious  handicap.  Therefore,  in  suggesting  the  inclusion 
of  an  interactive  graphics  capability,  the  previously  mentioned  goal 
of  program  efficiency  must  be  kept  in  mind. 

The  class  of  problems  to  be  considered  here  involves  the  study  of 
blood  flow  past  artificial  heart  valves.  In  order  that  the  problem 
be  studied  with  as  few  simplifying  assumptions  as  possible,  a  numerical 
technique  of  considerable  power  will  be  used.  In  addition,  interactive 
computer  graphics  will  be  included  as  an  integral  part  of  the  solution 
process.  Considerable  detail  will  be  focused  on  keeping  the  entire 
program  efficient  in  terms  of  the  use  of  machine  resources. 


CHAPTER  TWO 


THE  PHYSICAL  PROBLEM 

The  heart  is  basically  a  four  chambered  pump.  The  major  pump¬ 
ing  muscle  of  the  heart  is  che  left  ventricle,  which  supplies  oxygen¬ 
ated  blood  to  the  entire  body,  The  inflow  vaxve  to  the  left  ventricle 
is  the  mitral  valve,  and  it's  outflow  valve  is  the  aortic  valve.  It 
is  one  of  these  two  valves  whi'-h  is  most  often  destroyed  or  impaired 
genitically  or  by  disease,  even  though  two  other  valves  exist  in 
the  right  side  of  the  heart. 

In  the  past  few  years,  successful  replacement  of  the  natural 
valve  with  an  artificial  one  has  brought  about  the  development  of 
many  different  designs  for  artificial  heart  valves.  Unfortunately,  no 
one  valve  completely  fulfills  all  of  the  criteria  for  an  ideal  re¬ 
placement  to  the  natural  valve  [8]  ,  By  studying  the  flow  character¬ 
istics  of  currently  available  prosthetic  heart  valves,  the  results 
could  provide  valuable  insight  into  the  design  of  a  better  valve. 

The  physical  model  chosen  to  study  first  was  the  Starr-Edwards 
ball  type  valve.  Because  this  is  a  very  popular  replacement  for  the 
natural  aortic  valve,  some  detailed  study  of  its  flow  characteristics 
seems  to  be  in  order.  The  environment  for  this  model  is  the  heart 
valve  test  chamber  developed  by  Weiting  at  the  University  of  Texas  [9] . 
This  provides  experimental  results  for  later  comparison  and  evaluation 
for  the  chamber  was  carefully  designed,  according  to  data  derived 
from  cadaver  heart  measurements . 

The  valve  testing  chamber  shown  in  Figure  1  was  designed  by 


Wieting  such  that  the  cross-sectional  flow  areas  were  analogous  to  those 
in  the  human  heart. 


Figure  1 

Wieting  Heart  Valve  Rest  Chamber 

A  cross-sectional  view  of  the  chamber  is  shown  in  Figure  2.  In  this 
drawing,  a  ball  type  valve  such  as  the  one  to  be  studied  is  shown 
in  the  open  position. 


Figure  2 

Cross  Section  of  Chamber 


CHAPTER  THREE 


THE  DEVELOPMENT  OF  THE  MATHEMATICAL  MODEL 


A.  THE  EQUATIONS  OF  FLUID  FLOW 

The  mathematical  study  of  fluid  dynamics  is  based  upon  the  prin¬ 
ciples  of  conservation  of  mass,  momentum  and  energy.  These  principles 
can  be  expressed  in  the  form  of  partial  differential  equations.  Der¬ 
ivation  of  these  equations  are  found  in  standard  fluid  dynamics  texts 
such  as  those  by  Lightfoot  [10]  or  Batchelor  [11]  .  For  simple  two- 
dimensional  flow  they  are: 
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Equation  (1)  is  the  continuity  equation,  and  equations  (2)  and  (3)  are 
the  Navier-Stokes  equations  for  two-dimensional  incompressible  flow. 

In  these  equations,  u  and  v  are  velocities  in  the  x  and  y  directions 
respectively,  p  is  the  density  of  the  fluid,  and  p  the  pressure  in  the 
fluid. 

Since  blood  is  a  viscous  fluid,  in  our  particular  study  involving 
incompressible  flow,  we  must  consider  the  effects  of  viscosity. 

This  results  in  the  set  of  equations: 
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where  y  is  the  vi^uosity  of  Mie  fluid. 


Dividing  equations  (5)  and  (6)  through  by  p ,  we  get: 
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Here  v  =  y/p ,  the  kinematic  viscosity  of  the  fluid,  and  0  =  p/p. 
In  the  more  familiar  vector  form  these  equations  are: 


V  •  u  =  0  (9) 

iH.  =  (u  •  V  )  u  -  V0  +  vV2u.  (10) 

at 

The  motion  of  the  fluid  is  described  in  equation  (10)  in  terms  of: 

1.  (u  •  V)u  The  convection  of  momentum  by  fluid  motion. 

2.  -vj a  The  momentum  change  due  to  pressure  forces. 
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The  diffusion  of  momentum  by  viscous  forces 


lumped  together  as  an  error  term.  Now  expand  U.  and  U.  in  a 
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Taylor  series  expansion  about  the  central  point  U^. 


Using  a  Taylor's  Series  to  Approximate 
the  Function  U  =  U(x) 
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where  all  derivatives  are  evaluated  at  the  point  X  =  i.  Subtracting 
equation  (13)  from  equation  (12)  gives  the  three  point,  central  finite 
difference  formula  for  the  first  order  derivative  of  U  at  X  =  i  as 
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Similar  derivations  give  the  forward  difference  formula 
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and  the  backward  difference  formula 
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The  usefulness  of  these  difference  formulae  can  be  demonstrated 
by  considering  a  simple  differential  equation: 
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The  derivative  —  at  the  point  x0  can  be  approximated  using  the  for' 
ward  difference  formula  of  equation  (15)  as: 
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Applying  this  approximation  to  the  given  differential  equation  (17) 


z(xj.)  =  z(x0)  +  hF  (x0,yo)  (19) 

gives  an  approximation  to  the  solution  of  equation  (17)  at  the  point 

V 

Clearly,  successive  applications  of  this  difference  scheme  will 
result  in  solutions  to  the  equation  for  all  values  of  x  for  which  the 


function  is  defined. 


Extending  this  derivation  to  functions  of  two  variables  also  re¬ 


sults  in  the  central  difference  forms  useful  in  the  solution  of  partial 
difference  equations: 
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Similar  forms  exist  for  |y-,  and  — ^ J  . 

3y 

An  equation  which  frequently  appears  in  studies  of  fluid  dyn¬ 
amics  is  Poisson's  equation 
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Consider  solving  this  equation  over  some  region  R  with  some  appro¬ 
priate  boundary  conditions  along  the  boundary  B.  By  superimposing  a 
square  mesh  on  the  region  R,  as  in  Figure  5  ,  the  finite  difference 
forms  of  the  derivatives  at  the  point  (X.^)  can  be  written 
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U(X°*V  +  +  U(XlfY0)  +  0(X  Y2)  - 


4U(VV  (25) 


g(x1,Y1) 


An  analogous  equation  may  be  written  for  every  point  interior  to 
B,  being  careful  to  use  the  appropriate  boundary  conditions  for  points 
near  B.  This  leads  to  a  system  of  linear  equations  1::  the  unknowns 
UtX^YJ  which  can  be  solved  for  by  some  iterative  technique.  All  of 
the  methods  discussed  in  this  paper  are  based  on  this  use  of  f inice 
difference  equations. 


c>  STREAM  FUNCTION  AND  VORTICITY 

In  general,  solutions  to  problems  in  fluid  dynamics  are  difficult 
to  obtain.  The  most  popular  technique  for  simplifying  the  equations 

has  been  the  introduction  of  stream  function  and  vorticity  as  primary 
variables. 

In  considering  the  flow  of  an  incompressible  fluid,  the  mass  con¬ 
servation  equation 
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reduces  to  the  statement  that  a  vector  divergence  is  zero.  If  the  flow 
field  is  two-dimensional,  this  vector  divergence  is  the  sum  of  only 
two  derivatives.  From  the  mass  conservation  equation  given  previously 
m  equation  (1)  it  follows  that  udy-vdx  is  an  exact  differential, 
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In  this  way  we  have  used  the  mass-conservation  equation  to  replace  the 
two  dependent  variables  u,v  by  the  single  dependent  variable  ip,  which  is 

a  very  valuable  simplification  in  many  cases  of  two-dimensional  flow. 
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Derivation  of  Stream  Function 
The  scalar  function  ip  is  now  defined  by 


ip  -  ip0  =  /( Jdy  -  vdx)  ,  (28) 

where  if/0  is  a  constant  and  the  line  integral  is  taken  along  an  arbi¬ 
trary  curve  joining  some  reference  point  0  to  the  point  P  with  coordin¬ 
ates  x,y,  as  shown  in  Figure  (6) .  From  this  we  can  show  that  the  flux 
of  volume  across  the  closed  curve  formed  from  c.ny  two  paths  joining  0 
and  P  is  necessarily  zero  when  the  enclosed  region  is  wholly  occupied 
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by  incompressible  flow.  The  flux  then  is  independent  of  the  path,  and 
defines  a  function  of  the  position  of  P.  Since  the  flux  of  volume  across 
any  curve  joining  two  points  is  equal  to  the  difference  between  the 
values  of  \p  at  these  two  points,  it  follows  that  ^  is  constant  along  a 
streamline.  \p  is  therefore  termed  the  stream  function. 

Another  important  concept  in  simplifying  the  equations  is  vorticity. 
The  vorticity,  or  rotation,  of  a  fluid  is  given  by 


u)  =  Vxu 


(29) 


Again,  restricting  analysis  to  two-dimensional  flow,  there  exists  only 
one  component  of  vorticity,  namely 
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Almost  all  of  the  solution  techniques  that  this  author  is  ac¬ 
quainted  with  use  stream  function  and  vorticity  to  simplify  the  equa¬ 
tions  of  fluid  flow.  A  few  of  these  techniques  are  outlined  below. 


D.  SOME  PREVIOUSLY  USED  NUMERICAL  TECHNIQUES 

One  of  the  earliest  attempts  to  solve  numerically  a  problem  of 
time  dependent  two-dimensional  incompressible  viscous  flow  was  done  by 
Fromm  [14]  at  Los  Alamos.  Fromm's  use  of  stream  function  and  vorticity 
is  representative  of  most  numerical  techniques. 

Taking  the  curl  of  equation  (10) ,  and  using  the  definition 
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of  vorticity  of  equation  (29) ,  results  in  the  vorticity  transport 
equation 
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(31) 


The  definition  of  vorticity  (29)  can  be  written  in  terms  of  stream 
function 


(o  =  -  f  V* 


(32) 


This  equation  is  a  Poisson's  equation,  and  can  be  solved  by  some  itera¬ 
tive  technique,  using  finite  differences  as  outlined  previously. 

Fromm  begins  with  some  initial  guess  for  his  solution.  Time  is 
then  advanced,  and  a  finite  difference  form  of  equation  (31)  is  used  to 
compute  new  vorticities  thoughout  the  mesh.  Using  the  updated  vorti- 
cites,  equation  (32)  is  solved  for  the  ty  field.  An  improved  Liebmann's 

method  was  used  [15],  taking  advantag;  of  any  available  advanced  values 

| 

of  neighboring  points.  The  iteration  continues  until  the  field  settles 


down.  Finally,  new  velocity  components  corresponding  to  the  updated  i|» 
values  are  calculated,  and  then  used  to  obtain  corrected  vorticity 
values  at  walls  and  obstacles.  This  process  is  then  repeated  until  some 
appropriate  convergence  criterion  is  satisfied. 

Fromm's  method  suffered  from  a  poor  approximation  of  the  boundary 
conditions,  and  the  requir jment  for  stability  and  accuracy  of  excess¬ 
ively  small  time  steps.  Steps  to  improve  the  application  of  the  boun¬ 
dary  conditions  and  the  iterative  procedures  were  taken  by  Pearson  [16] , 
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and  Esch  (J7j,  Stream  function-vorticity  methods  still  have  several 
difficulties.  First,  the  boundary  conditions  are  difficult  to  apply, 
especially  to  a  free  surface.  Second,  extension  to  three-dimensions 
and  cylindrical  coordinates  involves  a  great  effort.  These  difficul¬ 
ties  have  been  overcome  by  solving  the  Navier-Stokes  equations  in  terms 
of  the  primary  variables  velocity  and  pressure.  This  work  was  done  by 
Harlow  et  al.  [18]  at  Los  Alamos. 


CHAPTER  FOUR 


THE  DEVELOPMENT  OF  THE  NUMERICAL  METHOD 

A.  THE  MARKER  AND  CELL  TECHNIQUE 

Developed  at  Los  Alamos,  the  Marker  and  Cell  [19]  (MAC)  technique 
for  computing  time-dependent,  viscous,  incompressible  fluid  flows  in 
several  space  dimensions,  was  the  first  such  method  to  use  the  primary 
variables  velocity  and  pressure.  The  MAC  technique  utilizes  the  full 
Navier-Stokes  equations,  without  the  usual  simplifying  assumptions. 

The  MAC  methodology  as  described  here  forms  the  basis  for  later  devel¬ 
opments  which  were  used  in  this  research. 

The  Solution  Technique 

The  MAC  method  uses  two  coordinate  systems.  The  primary  coordinate 
system  covers  the  region  of  interest  with  a  rectangular  mesh,  each  cell 
of  dimension  fix  by  fiy.  If  the  cells  are  numbered  by  indices  I  and  J, 
such  that  I  counts  the  columns  in  the  X  direction  and  J  the  rows  in  the 
Y  direction,  then  the  field  variables  describing  the  flow  field  can  be 
positioned  as  shown  in  Figure  7  . 
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Figure  7 

Location  of  Primary  Variables  in  MAC  Finite  Difference  Grid 

The  variables  are  placed  as  shown  in  order  to  maintain  conservation.  If 
the  field  variables  are  placed  at  the  cell  centers,  the  finite  differ¬ 
ence  equation  for  pressure  would  require  the  involvement  of  the  next 
layer  of  cells  beyond  that  which  immediately  surrounds  any  central  cell 
in  order  to  attain  rigorous  finite-difference  mass  conservation.  This 
means  that  the  solution  technique  becomes  much  more  complex,  in  addi¬ 
tion  to  the  inaccuracies  introduced  by  using  far-distant  quantities. 

Besides  the  coordinate  system  attached  to  the  finite  difference 
cells,  there  is  a  coordinate  system  of  particles  whose  motions  describe 
the  trajectories  of  fluid  elements.  The  marker  particles  serve  two 
functions;  first  they  show  which  cells  are  free  surface  cells.  Second, 


they  show  the  motion  of  the  fluid  as  it  passes  through  the  computing 
region. 
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°ij  ~  6x  (Ui+l/2,j  "Ui-l/2,j}  +  fiy  (vi,j+l/2  “  Vi,j-l/2)  (33) 


The  incompressibility  condition  then  becomes 


Dij  =  0  (34) 

which  is  required  at  every  cell,  at  every  time  step.  Rewriting  equation 
(10)  as 
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The  finite  difference  equations  can  be  written 
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where  g  and  g  are  the  gravity  components.  Equations  (36)  and  (37)  are 
A  y 

immediately  available  for  computing  new  velocities,  and  it  fact  are  the 
equations  used  in  step  (2)  of  the  computing  technique  outlined  previously. 

Now  it  is  only  necessary  to  find  an  equation  for  the  pressures.  In 
order  to  do  this,  first  define 
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to  follow  cell  boundaries.  This  means  that  all  side  or  obstacle  walls 
must  be  horizontal  or  vertical. 
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If  the  wall  is  to  allow  for  Free-slip  (i.e.  there  is  no  friction 

between  the  wall  and  the  fluid)  ,  then  whenever  an  equation  calls  for  use 

of  an  exterior  tangential  velocity,  the  calculation  simply  uses  the 
value  of  the  tangential  velocity  at  the  image  point  back  in  the  comput¬ 
ing  region.  If  an  exterior  normal  velocity  is  required,  the  negative 
of  the  image  value  is  used  so  that  the  normal  component  of  the  velocity 
in  fact  vanishes  at  the  wall. 

If  the  wall  is  no-slip  (i.e.  the  tangential  component  of  the  fluid 

velocity  =  0  along  the  walJ ) ,  then  the  exterior  tangential  component 

must  be  the  negative  of  the  image  point.  In  order  that  vanish  for 
exterior  cells,  this  requires  the  external  normal  velocity  components 
to  have  the  same  value  as  they  do  at  their  image  interior  points. 

Expressions  relating  the  normal  difference  of  the  pressure  to  the 
normal  component  of  the  body  force  and  the  viscous  diffusion  of  normal 
momentum  are  contained  in  the  momentum  equations.  These  expressions 
supply  the  needed  boundary  information  for  solution  of  the  0-equation. 


B.  SIMPLIFIED  MARKER  AND  CELL  TECHNIQUE 


It  is  the  application  of  these  boundary  conditions  in  the  0-equa- 
tion  which  makes  the  MAC  method  unduly  complicated.  In  addition,  the 
solution  of  the  Poisson's  Equation  is  very  difficult,  and  does  not  lend 
itself  well  to  fast  solution  techniques.  In  order  to  overcome  these 
difficulties,  the  Los  Alamos  Group  modified  the  Marker  and  Cell  method, 
making  it  much  simpler  to  work  with. 


The  procedure  for  each  computational  cycle  as  outlined  by  Amsden 


", 


and  Harlow  [20]  is  outlined  below: 

1.  A  tentative  field  of  advanced-time  veloci¬ 
ties  is  calculated  by  using  an  arbitrary  pressure 
field  within  the  fluid,  but  with  a  pressure  boundary 
condition  at  the  free  surface  satisfying  the  normal 
stress  condition.  Correct  velocity  boundary  condi¬ 
tions  assure  that  this  tentative  velocity  field  con¬ 
tains  the  correct  vorticity  at  every  interior  point 
in  the  fluid.  The  tentative  velocities  do  not,  how¬ 
ever,  have  V-u  =  0. 

2.  The  tentative  velocities  are  modified  to 
their  final  values  so  as  to  preserve  the  vorticity  at 
every  point.  A  potential  function  is  employed,  de¬ 
termined  by  the  requirement  that  it  convert  the  ve¬ 
locity  field  to  one  which  satisfies  the  incompress¬ 
ibility  condition  everywhere. 

To  begin,  the  basic  equations  (7),  (8),  and  (1)  are  rewritten  to 
make  use  of  cylindrical  coordinates: 


,  (43) 
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The  velocity  components,  u  and  v,  are  respectively  in  the  r  and  z 
directions,  and  the  pressure,  <|>,  is  normalized  to  unit  density.  Plane 
cartesian  coordinates  have  a=0,  and  cylindered  corrdinates  have  a=  1. 

Writing  the  finite  difference  forms  of  these  quations,  specifying 
the  advance  time  velocities  with  a  tildes 
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The  finite  difference  approximation  can  now  be  written  for  the 


vorticity  as: 
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Equations  (45)  and  (46)  can  be  combined  to  give  a  vorticity 
transport  equation.  This  equation  can  be  shown  to  be  independent  of 
the  pressure  field,  3.  This  means  that  any  field  of  pressure  inserted 
into  the  Navier  Stokes  equations  will  assure  that  the  resulting 
velocity  field  carries  the  correct  vorticity.  This  velocity  field, 
however,  does  not  satisfy  the  condition  that  Di,j  vanish  for  each  cell 
It  is  necessary  then  to  convert  the  tilde  velocities  into  a  final 
velocity  field  so  that  Di,j  =  0  for  every  cell.  This  must  be  done  so 
that  the  vorticity  already  determined  is  preserved.  This  implies  that 
the  change  in  velocity  be  given  by  a  gradient  of  a  potential  function, 
which  will  be  called  tf.  This  can  be  written 

nn+1  =  nn+1  1 

1+1/2, j  1+1/2 , j  "  67  (  *1+1, j  "  ^ifj  )  '  (49) 
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Now,  with  equation  (47)  and  equations  (49)  and  (50) ,  it  follows  that 
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Since  it  is  required  that  D^+  =  0  for  every  cell,  the  value  of  (3 

i,j  i,: 

for  every  cell  can  be  expressed  as 
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Here,  h  indicates  the  iteration  number,  and  a  an  over-relaxation 
parameter.  The  iteration  sequence  proceeds  until  appropriate  convergence 
criteria  are  satisfied. 


C.  ARBITRARY  BOUNDARY  MARKER  AND  CELL  TECHNIQUE 


The  restriction  placed  on  most  finite  difference  schemes,  that  the 
boundaries  of  theproblem  must  lie  on  the  computational  mesh,  is  most 
severe.  In  effect,  this  means  that  one  must  restrict  his  problem  to 
having  rectangular  walls.  In  the  particular  application  of  the  heart 
valve,  it  is  certainly  desirable  to  have  boundaries  of  any  arbitrary 
shape . 

Mr.  J. A.  Viecelli  developed  c  cieneralization  of  the  Marker  and  Cell 
Technique  at  the  Lawrence  Radiation  Laboratory  [21] .  Known  as  the 
Arbitrary  Boundary  Marker  and  Cell  Technique  (ABMAC)  it  treats  the  fluid 
boundary  at  an  arbitrarily  curved  wall  or  obstacle  as  a  free  surface, 
to  which  a  pressure  is  applied  such  taht  the  particles  at  the  boundary 
move  tangent  to  it.  In  order  to  calculate  the  pressure  along  the  free 
surface,  the  usual  MAC  iteration  formula  is  replaced  by  a  simultaneous 
scheme  proposed  by  Chorin  [22,23]. 

Using  centered  differences  in  a  cylindrical  coordinate  system, 
equation  (7)  can  be  written 
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By  combining  the  old  velocity,  advection,  body  force,  and  viscous 
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terms,  and  calling  the  resultant  '  e<3uati°n  becomes 
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Similarily  the  finite  difference  form  of  equation  (8) 
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can  be  written  as 
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where  j+1/2  rePresents  the  old  velocity,  advection,  body  force, 

and  viscous  terms  in  the  v-momentum  equation. 

According  to  Chorin's  derivation,  the  pressure  and  the  advanced 
time  velocity  fields  may  be  solved  for  simultaneously  using  the 
relationship 


Pi+1  =  p1.  -  at(v.^+i\:. 

13  13  V  a  3 


(57) 


The  iteration  scheme  is  as  follows: 

1.  Equation  (57)  is  used  to  compute  a  new  pressure  field. 

2.  The  new  pressure  field  is  substituted  into  equations  (54) 
and  (56)  to  obtain  the  new  velocities. 

3.  These  new  velocities  are  used  to  compute  new  values 
of  the  divergence. 

4.  Repeat  the  above  sequence  until  some  convergence 


criteria  is  reached.  Note  that  ri?  ,  .  and  £ ;?  . 

1+1/2, 3  1, 1+1/2 


need  not  be  recomputed  at  each  interaction. 
In  order  to  maximize  the  time  step,  the  iterates 
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,i+l 


must  be  recomputed  as  soon  as  P.  .  has  beer  obtained  for  a  cell,  and 

1 1 3 


before  advancing  to  the  next  cell. 

The  pressures  in  boundary  cells  must  be  computed  in  a  slightly 
different  manner.  Instead  of  adjusting  the  pressure  proportional  to 
the  divergence  or  net  flux  out  of  a  cell,  it  is  adjusted  proportional 
to  the  flux  across  the  boundary  relative  to  coordinates  fixed  in  the 
boundary.  This  means  that  if  liquid  is  flowing  across  the  boundary  the 
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pressure  will  be  increased  until  the  outflow  stops.  If  liquid  is 
tending  to  separate  from  the  boundary  the  pressure  will  decrease  until 
the  liquid  flows  tangent  to  the  boundary.  This  is  accomplished  through 
the  use  of  the  following  equation  in  boundary  cells. 


_i+l  i  At 

P.  .  =  P.  .  -  -r 
i/l  i/l  5 


-  V  (r,t)  •  n 

b 


Here  n  is  the  normal  defining  the  boundary  segment  associated  with 
the  cell  (i,j),  Vb(r,t)  is  the  velocity  of  the  midpoint  of  the  segment, 
and  (V  )  is  the  liquid  velocity  at  the  midpoint  of  the  segment.  At 
and  6  are  the  relaxation  parameter  and  the  mesh  width  respectively.  The 
inclusion  of  the  velocity  of  the  boundary  segment  means  that  the  boundary 
not  only  can  assume  an  arbitrary  shape,  but  can  move  relative  to  the 
computing  mesh  as  well. 

The  capability  of  a  boundary  to  assume  an  arbitrary  shape  and  to 
move  within  the  computing  mesh  is  of  great  use  in  the  study  of  blood 
flow  problems.  The  flexing  leaflets  of  the  natural  heart  valve  plus 
the  motion  of  the  sinus  of  Valsalva  in  the  aortic  root  area  are  examples 
of  needed  flow  calculations  over  objects  whose  boundaries  undergo 
large  deformations.  In  turn,  components  of  heart  valve  prostheses  move 
about  in  the  computing  mesh,  requiring  the  same  capability  in  the 
computational  technique. 

Consider  the  computing  region  shown  in  Figure  8.  Its  shape 
corresponds  to  the  in-vitro  experimental  chamber  of  Weiting  [9] .  The 
flow  is  from  the  left  verticle,  through  the  open  valve,  into  the  aorta. 
Since  the  geometry  of  the  valve  is  symmetrical  about  a  line  drawn 


through  its  center,  we  can  solve  the  problem  by  considering  only  one 
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Figure  8 

Mathematical  Model  of  Aortic  Valve 
l  Star-. -Edwards  12-A) 


half  of  the  region.  In  Figure  9  the  computational  mesh  has  been  placed 
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Figure  9 

Because  of  symmetry,  only  half 
of  the  region  need  be  considered. 
This  region  is  placed  in  an  r-z 
coordinate  frame  and  the 
computational  mesh  is  introduced 
The  inset  shows  a  portion  of  the 
boundary  cutting  through  the  mesh. 


Looking  at  a  portion  of  the  boundary  as  it  cuts  through  the 
computational  mesh,  we  can  visualize  the  ABMAC  technique  for  describing 
an  arbitrary,  moving  wall.  In  Figure  10a  the  boundary  has  been 
approximated  in  each  cell  by  a  straight  line  connecting  the  intersections 
of  the  boundary  with  the  cell.  The  position  of  each  segment  is  then 
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specified  by  a  unit  vector  normal  to  the  segment,  with  its  base  located 

at  the  mid- point  of  the  segment.  The  convention  is  that  the  normal 

.  th 

points  towards  the  fluid,  and  to  the  left  as  one  advances  from  the  1 

st 

to  the  l+l  boundary  point.  Also  associated  with  each  segment  is  a 
velocity  vector,  defining  the  motion  of  the  wall.  In  this  study,  such 
velocity  vectors  would  result  from  programming  the  pulsing  motion  of 
the  walls,  and  the  motion  of  the  ball  as  a  result  of  pressure  changes  in 


the  system. 


Figure  10a  Figure  10b 

Boundary  is  approximated  by  When  the  liquid  fraction  of  a 

straight  line  segments  connecting  cell  is  too  small,  the  boundary 

the  intersections  of  the  cell  flag  is  turned  on  in  a  neighboring 

walls  with  the  boundary.  Unit  cell.  If  that  cell  also  contains 

vectors  normal  to  the  segment  and  a  boundary  segment,  the  two 

pointing  towards  the  fluid  are  segments  are  replaced  by  one  by 

positioned  at  the  midpoint  of  removing  the  boundary  inter- 

each  segment.  section  between  the  two  cells. 


Having  determined  in  which  cells  the  boundary  lies,  the  cells  are 
appropriately  marked.  Cells  are  marked  as  FULL,  EMPTY,  or  BOUNDARY.  The 
boundary  is  approximated  by  flagging  a  boundary  cell  as  such,  only  if 
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the  liquid  fraction  of  the  total  cell  is  greater  than  a  specified  fraction, 
as  shown  in  Figure  10a.  If  the  liquid  fraction  is  too  small,  the  program 
determines  the  neighboring  cell  that  the  boundary  segment  normal  points 
closest  to,  and  turn  on  the  flag  for  that  cell.  If  that  cell  also 
contains  a  boundary  segment,  the  two  segments  are  replaced  by  a  single 
segment,  constructed  by  removing  the  boundary  intersection  between  the 
two  cells.  This  is  illustrated  in  Figure  10b. 

Finally,  marker  particles  are  introduced  to  visualize  the  fluid 
wtthin  the  region.  Figure  11  is  an  actual  computer  generated  picture  of 
the  completely  described  computing  region. 


Figure  11 

Completely  Described  Computing  Region 
Including  Marker  Particles 


CHAPTER  FIVE 
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INTERACTIVE  COMPUTER  GRAPHICS 

The  cathode  ray  tube  display  was  used  as  a  computer  output  device 
as  early  as  1956.  The  early  Whirlwind  computer  at  MIT  used  CRT  displays 
to  plot  curves  and  graphs.  However,  the  first  significant  use  of  a  CRT 
display  as  an  interactive  device  was  demonstrated  by  Sutherland  with 
his  Sketchpad  program  [24]  .  Sketchpad  exhibited  the  two  basic  functions 
of  an  interactive  display  device.  First,  it  was  used  as  an  input/output 
device  that  could  accept  or  display  data  in  pictorial  form.  Second, 
it  could  be  used  to  control  the  sequence  of  the  program.  Since  this 
demonstration  of  interactive  computer  graphics,  it  has  been  found  to 
be  a  valuable  tool  in  many  programming  areas.  Text  editing  [25], 
conversational  mathematics  programs  [26]  ,  circuit  design  [27] , 
mechanical  design  [28] ,  and  structural  analysis  [29] ,  are  some  of  the 
areas  in  which  interactive  computer  graphics  has  been  found  to  be 
useful. 

Because  fluid  dynamics  problems  are  extraordinarily  complex,  they 
tend  to  absorb  the  computational  power  of  available  computing  systems. 

A  single  solution  may  consume  several  hours  of  CPU  time  on  the  most 
powerful  of  today's  machines.  As  advances  are  being  made  in  numerical 
methods,  and  in  the  understanding  of  the  equations  of  fluid  dynamics, 
concurrent  investigations  must  be  made  in  developing  newer  and  faster 
computing  techniques.  The  computer  user  needs  to  think  of  todays 
computer  as  more  than  just  a  very  big,  very  fast  calculator.  There  are 
many  ways  in  which  these  machines  can  be  used  to  create  an  effective 


problem  solving  system.  One  such  way  is  the  addit  on  of  interactive 
computer  graphics. 

The  role  that  interactive  graphics  can  be  expected  to  play  in  the 
study  of  fluid  dynamics  should  be  carefully  evaluated  before  a  large 
scale  commitment  to  computer  graphics  is  made.  One  area  for  consideration 
is  the  application  of  computer  graphics  to  the  display  and  interpretation 
of  results.  Digital  plotters  have  been  around  for  many,  many  years, 
helping  computer  users  visualize  their  results.  A  picture  may  be  worth 
a  thousand  words,  but  in  the  case  of  computer  generated  data,  a  graph 
or  a  plot  may  be  worth  over  a  thousand  numbers.  When  working  with  a 
real  world  physical  problem,  the  computer  user  wants  to  see  a  real 
world  representation  of  his  solution.  He  wants  to  see  a  picture,  not 
rows  and  rows  of  numbers. 

A  system  where  this  kind  of  graphics  is  used  interactively  has 
been  proposed  by  Fromm  and  Schreiber  [30] .  Their  approach  has  been 
to  have  the  program  which  computed  the  solution  to  the  fluid  problem 
write  a  data  set  out  onto  a  direct  access  storage  device.  Another 
program,  running  interactively  can  then  read  the  data,  and  under  user 
control  provide  a  variety  of  interpretations  of  the  data.  A  diagram 
of  this  scheme  is  shown  in  Figure  12. 

Especially  applicable  to  Marker  and  Cell  type  techniques  is  the 
making  of  motion  pictures  of  the  fluid  simulations.  A  number  of  films 
have  been  made  [31,32]  showing  the  power  of  su  h  techniques.  As  the 
marker  particles  are  moved  in  each  computational  step,  they  are 
plotted  and  photographed.  The  resulting  sequence  provides  a  most 
graphic  display  of  the  fluid  motion. 
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Figure  12 

Graphic  Analysis  Program 
(Fromm  and  Schreiber) 

Another  area  in  which  it  seems  that  graphics  can  easily  be  applied 
is  the  description  and  input  of  the  problem  to  the  computer.  Still 
bound  to  ideas  associated  with  batch  processing,  most  problems  are 
carefully  drawn  out  by  hand,  measured  and  detailed  and  the  resulting 
data  punched  into  cards.  It  would  seem  much  t  itter  to  present  the 
computer  the  data  in  a  more  natural  way,  where  the  user  could  sit  down 
at  an  interactive  graphics  terminal,  and  draw  the  region  in  which  a 
solution  would  be  of  interest,  specifying  the  various  parameters  as 
the  program  requested  them.  In  methods  such  as  ABMAC  where  the 
specification  of  boundary  segments  and  the  correct  flagging  of 
computational  cells  is  critical,  the  ability  to  quickly  see  the  results 
of  the  input  andspecify  the  appropriate  changes  would  seem  to  be  very 
desireable. 

A  third  area  worthy  of  attention  is  that  of  graphically  monitoring 


and  interacting  with  the  executing  fluid  computation.  Although  this 


idea  has  been  considered  by  previous  investigators  [33,34],  it  was  not 
developed  to  its  full  potential.  The  basic  idea  is  very  simple.  In 
any  complex  numerical  problem  there  are  several  factors  which  can 
affect  the  solution  to  that  problem.  In  a  finite  difference  problem, 
these  typically  are  the  mesh  size,  the  time  step,  and  the  relaxation 
factor,  other  factors  which  may  be  of  importance  are  the  convergence 
criteria,  the  differencing  technique,  and  the  proper  use  of  boundary 
conditions . 

In  working  with  problems  in  fluid  dynamics,  it  becomes  very 
apparent  that  no  two  problems  are  alike.  Given  the  same  initial 
conditions,  the  same  boundary  conditions,  but  changing  the  geometry 
of  the  problem  even  slightly,  may  mean  that  a  whole  new  set  of  convergence 
criteria  may  be  necessary  to  solve  the  problem.  Perhaps  one  problem 
converges  very  quickly  but  one  diverges  unless  a  different  time  step  is 
used.  Each  problem  must  be  considered  as  a  separate  entity.  Certainly 
dumps  of  pertinent  numbers  can  lead  the  user  to  the  correct  choice  of 
conditions  to  allow  him  to  reach  the  correct  solution.  The  question  is 
how  can  this  process  of  getting  into  the  solution  space  of  the  problem 
be  made  more  efficient.  The  obvious  choice  seems  to  be  interactive 
computer  graphics. 

The  interactive  conputer  graphics  facilities  at  the  University  of 
Utah  consist  of  a  PDP-10  time  shared  computer  running  under  Tenex,  a 
PDP-9  computer,  four  Univac  1559  CRT  displays,  and  the  associated 
hardware  interfaces.  Figure  13  shows  the  basic  configuration  of  the 


system. 
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Figure  13 

Configuration  of  Interactive  Graphic  System 
at  the  University  of  Utah 


The  PDP-10  is  a  36  bit  machine.  It  has  sixteen  high  speed 
integrated  circuit  registers  which  can  be  used  as  accumulators, 
normal  memory,  and/or  index  registers.  The  memory  bus  structure  of 
the  PDP-10  gives  the  central  processor  and  high  speed  data  channels 
simultaneous  access  to  separate  memory  modules.  The  bus  system  allows 
each  data  channel  to  transmit  full  36  bit  words  at  speeds  of  up  to 
one  million  words  per  second. 

In  conversational  time  sharing,  up  to  63  users  at  local  and 
remote  locations  can  simultaneously  develop  programs  on  remote 
consoles,  and  receive  answers  to  mathematical  or  engineering  problems 
in  seconds.  The  time  sharing  monitor  provides  instantaneous  response 
for  the  users,  so  that  they  can  perform  on-line  composition,  editing, 
and  debugging  of  programs  in  FORTRAN  IV,  MACRO-10,  BASIC,  and  AID. 

The  monitor  can  handle  any  mixture  of  these  languages  and  programs 


concurrently. 
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The  PDP-10  at  the  University  of  Utah  is  configured  with  96,000 
words  of  core  storage,  8  dec-tape  drives,  and  6  disk  pack  drives.  Each 
disk  pack  is  capable  of  holding  over  5  million  words  of  information. 

Attached  to  the  PDP-10  through  the  DA-10,  a  communications  device, 
is  the  PDP-9 .  The  PDP-9  is  a  single  address,  fixed  word  length  (18 
bits),  binary  computer.  The  configuration  here  has  8,192  words  of 
memory.  The  function  of  the  PDP-9  is  to  act  as  a  satellite  computer  to 
the  PDP-10.  It  processes  interrupts  from  the  displays  gathers  data 
to  be  sent  to  the  PDP-10,  and  acts  as  a  multiplexor  for  display  infor¬ 
mation  coming  from  the  PDP-10.  i 

i 

The  Univac  1559  is  a  high  speed,  buffered,  line  drawing  display 
which  was  designed  as  a  cooperative  exercise  between  the  University 
of  Utah's  Computer  Science  Department,  and  the  Univac  Division  of 
Sperry  Rand  Corporation.  The  Screen  of  the  1559  has  a  useful  viewing 
area  of  10"  by  10".  Positions  on  the  screen  are  specified  in  cartesian 
coordinates,  in  which  the  origin  is  placed  at  the  bottom  left  hand 
corner  of  the  screen.  The  top  right  hand  corner  is  the  point  (1024, 
1024)  . 

Display  files  are  held  in  the  displays  own  memory,  a  4096  by  16 
bit  core  memory  with  a  cycle  time  of  1.4  microseconds.  The  1559  has 
its  own  program  counter,  called  the  list  counter,  which  is  used  to 
access  sequential  display  instructions. 

All  lines  are  drawn  on  the  screen  in  a  relative  mode,  i.e.,  they 
are  defined  by  their  length  in  the  two  axis  directions,  and  are  drawn 
from  the  position  currently  defined  in  the  X  and  Y  registers.  The  time 
taken  to  display  a  normal  vector  is  2  microseconds.  Beam  repositioning 
takes  32  microseconds  or  less,  depending  upon  the  distance  involved. 


Associated  with  each  display  is  a  mouse,  and  a  teletype.  The 
mouse  is  a  graphical  input  device,  consisting  of  a  small  plastic  box 
in  whose  base  two  potentiometers  are  mounted.  The  mouse  rests  on  two 
metal  wheels,  whose  axes  are  horizontal  and  at  right  angles  to  each 
other.  Each  wheel  is  connected  to  one  potentiometer.  As  the  mouse  is 
rolled  around  on  a  flat  surface,  its  movement  in  two  orthogonal 
directions  is  reocrded  by  the  rotation  of  the  potentiometers.  This 
can  be  determined  by  applying  a  voltage  across  each  potentiometer  and 
sampling  the  outputs  through  analog-to-digital  converters.  Push  buctons 
on  the  mouse  give  the  user  the  ability  to  issue  commands  from  the 
mouse  under  program  control. 


CHAPTER  SIX 


GRAPHICS  INTERACTION  FOR  THE  ABMAC  PROCEDURE 

Regardless  of  how  sophisticated  the  application  may  be,  if  the 
graphics  and  interaction  code  are  poorly  handled  it  is  difficult  to 
justify  their  use.  Whatever  advantage  may  be  gained  through  the 
addition  of  interactive  graphics  can  be  completely  offset  because  of 
poor  program  design.  In  the  kind  of  application  being  considered  here, 
there  are  two  glaring  problems  which  must  be  considered.  First,  any 
problem  involving  finite  differences  is  typically  very  large.  In  a 
time  sharing  environment  such  as  the  one  being  used  here,  any  increase 
in  core  size  becomes  critical  to  the  effective  running  of  the  machine. 
Second,  fluid  computations  absorb  a  great  deal  of  computing  time.  A 
solution  may  take  more  than  30  hours  of  computing  time  to  complete. 

For  this  reason,  the  time  required  for  interaction  and  graphics  should 
not  interfere  a  great  deal  with  the  actual  computation  time. 

Work  done  by  Carter  [33]  and  Bennion  [34]  here  at  the  University 
of  Utah  is  typical  of  the  approach  which  has  been  used  in  implementing 
interactive  graphics  in  a  large  scale  numerical  application.  Figure  14 
illustrates  the  way  in  which  this  approach  imbeds  the  interactive  and 
graphics  coda  within  the  computational  program.  This  implies  several 
drawbacks  in  light  of  the  problems  under  consideration. 

First,  at  each  point  in  the  computational  program  where  one  of 
these  imbedded  pieces  of  interactive  graphics  occurs,  there  must  exist 
a  sequence  of  code  represented  by  the  flow  chart  in  Figure  15.  This 
adds  a  certain  amount  of  program  space  to  the  already  large  finite 


COMPUTATIONAL 

CODE 


Figure  14 

Schematic  of  Imbedded  Interactive  Graphics  Code 

difference  code,  and  requires  the  program  process  this  overhead  each 
time  that  it  is  encountered.  Suppose  that  some  code  of  this  nature 
was  placed  in  an  iterative  loop,  and  that  that  loop  was  iterated 
through  a  hundred  times  per  time  cycle.  That  would  represent  a  large 
amount  of  overhead  in  a  program  where  computing  time  was  already 
critical. 

Second,  consider  what  takes  place  when  a  display  is  required. 
Since  dynamic  events  are  being  modelled,  each  time  an  additional  piece 
of  information  is  required  to  be  displayed,  a  piece  of  code  is  needed 
to  describe  that  display.  This  means  that  there  will  be  an  additional 
amount  of  program  which  will  be  proportional  to  the  complexity  of  the 
display  both  in  terms  of  space  and  the  time  needed  to  execute  it.  As 
the  number  and  complexity  of  displays  increases,  the  size  of  the 
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program  grows,  and  the  time  required  to  display  is  taken  from  the  total 
computation  time. 


Figure  15 

Flow  Chart  for  Imbedded  Interactive  Graphics 

Third,  consider  what  occurs  when  some  user  interaction  is  required. 
Whenever  the  program  expects  a  response  from  the  user,  it  must  stop 
and  wait  for  that  response.  When  the  response  is  received,  the  program 
must  make  some  decision  or  perform  some  branching  based  on  the  response. 
Again,  what  this  means  is  that  the  more  often  interaction  takes  place, 
the  more  code  the  program  needs,  and  the  more  time  the  program  loses  to 


computation . 


The  proposed  solution  to  these  problems  is  simple ;  remove  the 
interactive  graphics  from  the  program.  At  first  this  may  appear  to  be 
a  contradictory  statement.  How  can  an  interactive  graphics  system  be 
written  for  solving  a  problem,  when  the  computational  program  has  no 
interactive  graphics.  By  splitting  up  the  program  as  shown  in  Figure 
16  ,  the  solution  becomes  easy. 
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Figure  16 

Formation  of  Supplemental  Programs 


This  system  allows  the  investigator  a  great  deal  of  freedom  in 
describing  his  problem  to  the  computer.  His  input  is  not  bound  to 
certain  fields  on  punched  cards,  but  can  be  more  naturally  input  as  he 
manipulates  figures  on  the  face  of  the  CRT.  In  this  type  of  environment 
he  can  alter  the  problem  description  and  have  immediate  visual  feedback 


mmrmm 
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of  the  changes  he  makes,  and  computation  need  not  proceed  until  he  is 
satisfied  with  the  problem  he  has  described.  A  term  that  is  often 
heard  in  the  computer  community  is  "structured  programming"  [35] . 

In  large  software  systems  such  as  assemblers,  compilers  and  operating 
systems,  people  try  to  structure  their  programs  in  a  nice  way.  However, 
in  the  scientific  world,  it  seems  that  this  idea  is  often  neglected. 

In  the  system  under  consideration,  it  seemed  that  a  very  highly 
structured  program  was  a  necessity.  First,  it  is  desirable  to  keep 
the  computational  routines  and  the  display  routines  completely 
separate,  and  yet  they  must  be  able  to  communicate  with  each  other  very 
freely.  Also,  the  graphics  routines  themselves  must  be  structured  in 
such  a  way  as  to  allow  the  user  the  greatest  possible  degree  of  flex¬ 
ibility,  and  yet  be  simple  to  understand  and  use.  These  considerations 

pointed  to  the  necessity  of  a  modular  program  for  implementing  a 

» 

graphical  ABMAC  technique. 

In  quantizing  the  program,  it  seemed  appropriate  to  study  the 
nature  of  the  problem  which  it  was  intended  to  solve.  Basically,  the 
solution  consists  of  three  components;  describing  the  problem,  solving 
the  problem,  and  displaying  the  solution.  This  is  illustrated  in 
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A.  DESCRIBING  THE  PROBLEM 

The  problem  description  can  be  broken  down  into  four  different 
components;  setting  the  initial  values  of  computational  parameters, 
describing  the  computational  grid,  describing  the  geometry  of  the 
problem,  and  describing  initial  and  boundary  conditions  of  the  fluid. 
These  steps  are  shown  in  Figure  18. 
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Figure  18 

Components  of  Problem  Description 


Each  of  these  components  can  be  broken  down  even  further  into 
functional  groups.  It  is  at  this  level  that  the  program  was  structured. 
For  example,  consider  the  mesh  description.  This  requires  four 
functional  groups:  a  main  or  controlling  program,  a  program  to  handle 
communications  with  the  user  through  the  teletype,  a  display  program 
to  give  visual  verification  of  entered  values,  and  a  routine  to  computer 
various  scale  factors  and  constants  for  later  use.  The  actual  grid 
is  displayed  in  another  set  of  programs. 
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Figure  19 

Components  of  Mesh  Description 


The  entire  system  then  takes  on  a  tree-like  structure.  Putting 
the  pieces  together  as  described  above  gives  the  structure  of  Figure  20, 
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Figure  20 

Tree  Structure  of  Graphic  ABMAC  Components 


This  kind  of  structure  makes  the  code  simple,  easy  to  understand,  and 
interactive  to  a  high  degree.  The  following  section  will  point  out  some 
of  these  ideas,  as  the  basic  components  of  the  program  are  discussed 
in  detail. 


The  Main  Program 

The  main  program  in  the  input  routines  simply  allows  the  user  to 
choose  the  type  of  input  he  wants  to  use.  After  initializing  the 
display  system,  the  main  program  produced  the  display  shown  in  Figure  21. 
By  pointing  to  one  of  the  boxes  shown,  the 
appropriate  input  program  is  called,  "TTY" 
and  "DSK"  allow  the  user  to  input  all  of 
his  data  from  the  teletype  or  from  a 
previously  constructed  disk  file.  If  he 
points  to  "TERMINAL" ,  the  graphical  input 
program  is  called  and  executed. 
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Figure  21 

Initial  Graphic  ABMAC  Display 
for  Choosing  Input  Device 


The  input  Module 

This  module  is  the  actual  driving  module  for  the  input  programs. 
It  gives  the  user  complete  control  of  the  input  for  his  particular 


problem.  In  order  to  provide  the  user  with  some  guide  for  constructing 
his  problem  description,  the  input  module  produces  the  display  shown  in 
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Figure  22.  This  display  lists  the  various  functions  performed  in  a 
typical  problem  description.  The  user  steps  through  this  list  by 
pointing  to  the  function  which  he  wishes 
to  perform  next.  As  he  points  to  an  item 
he  pushes  one  of  the  switches  on  the 
mouse.  This  indicates  to  the  program 
which  function  is  desired.  That  program 
module  is  then  called  to  be  executed. 

When  it  is  finished  control  returns 
to  the  input  module.  The  basic 
structure  of  the  input  module  is  this: 


Figure  22 

Computer  Display  for  Graphic 
ABMAC  Problem  Description 

1  CALL  INPUT1 

CALL  WMOUSE 

INY= (INY+128) /128 

GO  TO  (2, 3, 4,5, 6, 7, 8) INY 

CALL  CHECK 

2  CALL  OUTP 

CALL  EXIT 

3  CALL  MOD 

GO  TO  1 

4  CALL  CNTRL 

GO  TO  1 

5  CALL  CONVG 

GO  TO  1 

6  CALL  FLUID 

GO  TO  1 

7  CALL  FIGURE 

GO  TO  1 

8  CALL  MESH 

GO  TO  1 
END 
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INPUT1  is  the  program  which  creates  the  display  of  Figure  20.  WMOUSE 
is  a  program  which  halts  the  computer  until  one  of  the  mouse  switches 
is  pushed.  It  then  returns  the  coordinates  of  the  mouse  cursor  in  the 
variables  INX  and  INY.  This  is  how  the  mouse  is  used  in  pointing  to 
objects  on  the  display  screen.  By  performing  a  transformation  on  INY 
and  using  a  computed  GO  TO  statement,  the  input  module  calls  the 
appropriate  subroutine.  As  each  subroutine  returns,  a  GO  TO  1  is 
encountered  which  creates  the  list  of  functions  again  and  waits  for  the 
next  user  response. 

The  light  buttons  produced  by  INPUT1  are  created  in  a  program  called 
BOXES.  The  number  of  boxes  desired  is  passed  as  an  argument  to  the 
subroutine.  It  computes  the  correct  starting  position  for  each  box, 
and  then  calls  another  subroutine  named  BOX  which  draws  the  actual 
box  in  that  location. 


The  Mesh  Description  Module 

This  module  allows  the  user  to  specify  the  computational  mesh 
upon  which  he  wishes  to  solve  his  problem.  The  way  in  which  this  is 
done  illustrates  another  unique  feature  based  on  the  structuring  of 
the  program.  It  is  desireable  to  ask  the  user  to  input  all  of  the 


required  parameters,  so  that  none  are  forgotten.  Once  this  is  done  the 


program  should  allow  him  to  selectively  change  any  of  the  input  values. 
This  is  accomplished  using  a  driving  routine  for  this  module  which 
looks  like  this: 

DO  1  1=1,5 
1  CALL  MESHl(I) 

CALL  WMOUSE 
INY= (INY+128) /128 
IF ( INY. GE. 6) RETURN 
CALL  MESH1 (INY) 

END 
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and  MESH1  looks  like  this: 

SUBROUTINE  MESHl(J) 

GO  TO  (4,6,8,13,15) ,J 

4  TYPE  5 

5  FORMAT (1H  ,'DR=,,$) 

ACCEPT  3,  DR 

3  FORMAT (F) 

GO  TO  18 

6  TYPE  7 


18  CALL  MESH2 
CALL  SEND 
RETURN 
END 


As  the  module  executes,  the  following  sequence  of  events  occurs. 
MESH1  is  called  5  times,  each  time  with  a  different  argument.  This 
argument  determines  which  of  the  parameters  is  to  be  requested  from 
the  teletype  when  the  value  is  typed  in.  Control  is  then  passed  to 
MESH2.  MESH2  puts  up  the  display  shown  in  Figure  23.  Each  time  the 
display  is  produced,  it  shows  the  most  recent  values  of  the  input 
mesh  parameters. 

Having  gone  through  all  of  the  mesh  parameters  in  the  DO  LOOP, 
the  driving  routine  calls  WMOUSE  in  the 
same  manner  as  in  the  control  module. 

This  way  the  user  can  point  to  a  value 
he  wants  changed,  and  push  the  mouse 
switch.  This  calls  MESH1  with  the 
appropriate  argument  to  change  that 
value.  If  he  points  to  the  top  box, 
control  returns  to  the  input  module. 
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Figure  23 


Computer  Display  for  Graphic 
ABMAC  Mesh  Description 
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Figure  Description  Module 


The  purpose  of  this  module  is  to  allow  the  user  to  input  the 


geometry  of  his  problem  in  a  natural  way.  Initially  the  module 


creates  the  display  shown  in  Figure  24. 


Pointing  to  INFLOW  directs  the 


BOUNDARIES 


program  to  accept  the  inflow  boundary 


conditions  of  the  problem.  Pointing 


to  BOUNDARIES  directs  the  program  to 


accept  the  geometry  of  the  problem. 


A  program  called  FIG3  controls  the 


input  on  the  geometry.  Its  first 


task  is  to  create  the  display  shown 


Figure  24 


in  Figure  25.  This  is  a  display  of 


Computer  Display  for  Graphic 
ABMAC  Figure  Description 


the  computational  mesh  previously 


described.  The  coordinate  axes,  the  number  of  cells  in  the  mesh,  Dr, 


and  DZ  are  also  displayed.  The  program  is  capable  of  accepting  the 


input  describing  the  figure  either  from  the  teletype  or  the  mouse.  As 


each  point  is  entered,  an  arrow  head  is  created  and  displayed,  showing 


the  location  of  the  point.  A  completely  described  digure  is  shown  in 


Figure  26.  At  the  conclusion  of  executing  this  module,  the  completed 


figure  is  created  and  displayed  without  the  mesh,  as  shown  in  Figure 


27.  This  figure  is  seen  to  be  equivalent  to  half  of  the  region  of 


interest  shown  in  Figure  8.  Because  of  symmetry  only  half  of  the  region 


need  be  considered.  If  the  display  produces  a  satisfactory  drawing, 


control  returns  to  the  input  module. 


Figure  25 

Computer  Display  of  Computational  Mesh 
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Figure  26 

Computer  Display  of  Computational 
Mesh  Showing  Points  Input  to 
Describe  the  Curved  Boundary 


Figure  27 

Computer  Display  of  Final 
Figure  Description 
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The  Fluid  Description  Module 


This  module  accepts  the  initial 
conditions  which  are  to  be  imposed  on 
the  fluid.  Using  the  display  shown 
in  Figure  28,  the  fluid  description 
module  operates  in  the  same  manner 
as  the  mesh  description  module.  The 
variables  input  here  include  MU;  the 
kinematic  viscosity  of  the  fluid, 
RHOA;  the  denisty  of  the  fluid,  NP, 
the  density  of  the  marker  particles, 
V,  NOT;  the  initial  V-velocity,  and 
U-NOT;  the  initial  U-velocity. 


fWICLE  DENSITY 


Figure  28 

Computer  Display  for  Graphic 
ABMAC  Fluid  Description 


The  Initialization  Module 

This  module  has  been  split  into  two  different  parts.  The  first 
handles  the  input  of  the  problem 
parameters  effecting  convergence. 

RETURN 

The  list  of  parameters  is  shown  in  — — — — 

Figure  29.  DT  is  the  time  step,  EPS1  8eia=m5» 

is  the  convergence  epsilon,  and  BETA  I  eps?=»,«*i» 

is  the  relaxation  constant.  Input  of 

DT.|  Mttt 

these  numbers  is  done  just  as  in  the 
mesh  description  module. 


Figure  29 

Computer  Display  for  Initializing 
Convergence  Parameters 
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The  second  portion  of  this  module 
handles  the  input  of  those  parameters 
effecting  program  control.  These  are 
shown  in  Figure  30.  NDUMP  is  the  number 
of  cycles  between  creations  of  saved 
core  images,  NPIT  is  the  number  of  pressure 
iterations  allows  per  cycle,  NSTOP  is  the 
number  of  cycles  to  be  run,  and  NEDIT  is 
the  number  of  cycles  between  EDITS.  FNAME 
is  the  name  of  the  file  to  be  created  with 
the  output  of  this  program,  and  description 
is  a  short  description  of  the  program 
which  has  been  described.  Input  is  done 
in  the  same  way  as  above. 
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Figure  30 


Computer  Display  for  Initializing 
Control  Parameters 


When  the  EXIT  function  is  requested,  the  input  program  calls  upon 
two  remaining  subroutines.  Although  they  serve  important  functions, 
they  were  not  included  as  separate  modules.  The  first  of  these  is  the 
CHECK  routine.  This  produces  the  display  shown  in  Figure  31.  This  is 
a  complete  description  of  the  input  problem.  The  mirror  image  of  the 
description  is  rpoduced  across  the  Z-AXIS,  and  the  dimensions  are 
labeled.  Also  shown  are  the  initial  and  input  velocities,  and  the 
text  describing  the  problem.  If  this  description  is  what  the  user 
wants,  he  pushes  the  switch  on  the  MOUSE,  and  the  various  parameters 
describing  the  problem  are  written  out  onto  a  disk  file.  This  is  done 


. . 


using  the  subroutine  OUTP.  This  routine  organizes  the  data  and  writes 


it  out  in  the  lorm  ovpected  by  the  ABMAC  routines. 
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Figure  31 

Computer  Display  of  Complete  Problem  Description 

B.  SOLUTION  OF  THE  PROBLEM 

The  use  of  interactive  graphics  in  numerical  problems  was  briefly 
discussed  in  the  previous  chapter.  One  area  under  consideration  was 
the  use  of  interactive  computer  graphics  to  monitor  and  interact  with 
the  computational  program.  The  computational  code  in  this  program  is 
based  on  Viecelli's  ABMAC  technique.  Typical  of  finite  difference 
methods,  it  is  very  large.  The  addition  of  an  arbitrarily  shaped 
boundary  adds  even  more  complexity  to  the  program.  If  the  design 
goals  of  an  efficient  program  are  to  be  met,  this  program  cannot  contain 
any  code  to  do  interactive  graphics.  It  is  still  possible  however,  co 
graphically  monitor  and  interact  with  the  computational  program. 
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The  structure  of  the  TENEX  system  on  the  PDP-10  allows  two  jobs 
to  simultaneously  share  core.  Using  this  facility,  a  program  can  be 
constructed  which  "SPIES"  on  the  computational  program,  and  visually 
displays  what  the  computation  is  doing.  This  method  of  applying' 
interactive  graphics  has  the  following  advantages: 

1.  The  spy  program  is  completely  independent 
of  the  computational  program.  Small  and 
compact,  it  adds  no  apparent  load  to  the 
overall  computer  system. 

2.  The  computational  program,  running  independ¬ 
ently  of  the  spy  program  can  run  completely 
in  the  background,  being  detached  from  any 
1/0  device. 

3.  The  Spy  program  need  only  be  run  when  desired. 

Its  presence  puts  no  additional  load  on  the 
computation  program. 

4.  The  computation  program  has  none  of  the 
overhead  normally  associated  with  graphics 
or  interaction. 

5.  Since  the  data  space  of  the  computational 
program  is  available  to  the  spy  program, 
parameters  effecting  convergence  or  program 
control  can  be  changed  from  the  spy  program. 

The  mechanics  of  core  sharing  are  straightforward.  During  the 
initialization  process  in  the  computational  program,  the  user  has  the 
option  of  requesting  that  a  shareable  file  be  created.  At  this  point, 


*-****>■ - - * . — . -  ■ 


a  file  is  created,  and  opened.  Then  pages  from  the  fork  containing  the 
computation  program  are  mapped  into  the  file.  The  computational  program 
is  now  free  to  run  uninterrupted. 

Whenever  it  is  desired  to  examine  the  state  of  the  computational 
program,  the  spy  program  is  run.  The  spy  program  immediately  maps 
into  its  own  fork  (or  processing  space)  pages  from  the  file  created  by 
the  computational  program.  Whatever  pages  have  been  mapped  in  this 
way  are  actually  now  being  shared  by  the  two  programs.  This  is 
illustrated  in  Figure  32. 


Block  Diagram  of  Core-Sharing  Used 
to  Achieve  Interactive  Graphics 

The  spy  program  then  creates  the  display  shown  in  Figure  33.  This 
display  presents  to  the  user  important  information  about  the  state  of 
the  computation.  In  the  center  of  the  display  are  shown  the  cycle  number 
and  the  iteration  number  in  that  cycle.  The  display  is  dynamic  in  the 
sense  that  these  numbers  constantly  change  to  reflect  the  current  state 


of  the  computation. 


KM  CHANGE  IN  IN  !i.2St 
KM  CHANGE  IN  V.  31. 2M 
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Figure  33 

Computer  Display  of  Current  State  of  ABMAC 
Computation  as  Produced  by  Spy  Program 

In  the  upper  left  hand  corner  of  the  display  are  shown  the  maximum 
changes  in  the  velocity  components  as  measured  during  the  current 
iteration.  As  the  problem  converges,  these  values  will  approach  zero. 
In  order  to  give  additional  meaning  to  the  changes  in  velocity,  the 
maximum  values  of  the  velocity  components  as  well  as  of  the  pressure 
are  displayed  for  the  current  cycle. 

On  the  right  hand  side  of  the  display  are  shown  plots  of  the 
divergence  and  the  error  term  for  the  pressure  iteration.  Bars  are 
added  to  this  ploc  at  each  iteration,  so  that  the  convergence  or 
divergence  of  the  iteration  sequence  can  be  monitored.  The  divergence 
is  given  in  equation  (1) .  As  is  shown,  it  is  required  that  the 
divergence  be  equal  to  zero.  In  terms  of  the  finite  differences,  this 
will  never  exactly  be  true.  However,  it  should  approach  zero.  The 
error  term  in  the  pressure  iteration  is 
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where 


ERROR:  PNORM/fcNORM, 


PNORM  = 


ENORM  =  Z  A P, 


The  spy  program  is  constructed  so  that  it  sleeps  as  long  as  there 
is  nothing  new  to  display.  When  a  change  occurs,  it  wakes  up,  makes 
the  appropriate  changes  or  additions  to  the  display,  and  returns  to 
a  sleep  state. 

Along  the  left  hand  side  of  the  display  are  five  light  buttons. 

The  first  four  of  these  are  parameters  which  affect  the  convergence  of 
the  program.  By  pointing  at  any  one  of  these  with  the  mouse,  it  is 
possible  to  change  the  value  of  that  parameter  in  the  computational 
program.  EPS  is  the  convergence  epsilon,  BETA  is  the  relaxation 
constant,  NPIT  is  the  maximum  number  of  allowable  pressure  iterations 
per  cycle,  and  DT  is  the  time  step.  The  bottom  light  button,  marked 
SELECT,  gives  the  user  some  control  over  the  course  of  the  computation. 

Pointing  at  the  SELECT  light  button  results  in  the  display  shown 
in  Figure  34 .  - - - - 


Figure  34 

Computer  Display  of  Spy  Program  Options 
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This  display  gives  the  user  five  options  from  which  to  choose.  By 
pointing  the  mouse  at  one  of  the  light  buttons,  flags  are  set  in  the 
computational  program  which  set  into  motion  the  appropriate  action. 

STOP  sets  a  flag  which  causes  the  computational  program  to  stop  at  the 
end  of  the  current  cycle.  Before  stopping,  it  will  create  a  data  file 
and  a  core  image  of  itself.  CYCLE  sets  a  flag  which  causes  the  current 
iteration  sequence  to  stop,  and  a  new  cycle  to  be  started.  PRINT 
causes  a  data  file  to  be  constructed  at  the  end  of  the  current  cycle. 
DUMP  causes  thj  program  to  create  a  file  which  is  a  core  image  of  itself. 
This  file  can  be  used  as  a  starting  place  for  continuing  the  program. 

EXIT  halts  the  SPY  PROGRAM  without  affecting  the  computational  program. 

These  few  capabilities  provide  all  of  the  necessary  interaction 
for  this  kind  of  a  problem,  and  because  of  the  way  in  which  they  are 
implemented,  the  computation  procedure  does  not  suffer  from  the  problems 
associated  with  interactive  graphics. 

C.  DISPLAYING  THE  SOLUTION 

Using  the  computer  to  produce  graphical  images  of  a  solution  has 
become  a  well  understood  idea.  Digital  plotters,  microfilm  plotters, 
and  CRT  displays  have  given  the  computer  user  an  important  tool  to  help 
him  solve  his  problems.  Working  with  a  visual  representation  of  his 
solution  he  can  gain  valuable  insight  into  his  problem. 

The  program  for  displaying  the  solutions  has  three  basic  functions. 
The  first  is  to  read  in  the  data  from  the  disk  files.  Two  files  are 
lequired  for  displaying  solutions.  Th"  first  file  which  is  needed  is 
the  file  containing  the  problem  description.  This  is  used  in  drawing 
the  curved  boundaries  for  plotting  solutions.  The  second  file  is  the 


data  from  the  computational  program.  It  should  be  noted  here  that  all 
of  the  filenames  are  handled  internally  by  the  various  programs.  A 
master  file  name  is  all  that  is  required  in  order  for  any  program  to 
get  the  required  file  from  the  disk. 

The  second  function  of  the  program  is  to  compute  the  A  matrix, 
the  BNDRY  matrix,  and  the  SI  matrix.  The  A  matrix  and  the  BNDRY 
matrix  are  matrices  which  are  used  in  the  countour  plotting  program. 
This  program  plots  contours  inside  of  arbitrarily  shaped  boundaries. 

The  A  matrix  and  the  BNDRY  matrix  are  useci  in  specifying  the  boundary 
to  the  contour  program. 

The  third  function  of  the  program  is  to  produce  displays  of  the 
solution  space.  Control  over  this  function  is  similar  in  nature  to  the 
control  of  the  input  program,  using  the  mouse  and  a  computed  GO  TO 
statement  to  govern  the  branching.  The  display  of  figure  35  is  drawn 
by  the  subroutine  CNTRLl .  These  light  buttons  indicate  the  available 
functions  for  displaying  the  solutions  to  the  problem.  By  pointing  at 
one  of  these  light  buttons  with  the 
mouse,  the  appropriate  type  of 
solution  will  be  displayed  on  the 
screen.  Although  the  option  for 
producing  an  isometric  plot  is 
shown,  and  a  program  for  doing  so 
in  ,i\’4 1  l.iMr  ,  ttvhnic.-il  considerations 
made  it  impossible  to  include 
isometric  plots  of  solutions  in  this 
report. 

Computer  Display  of  Output 
Functions. 
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Velocity  Profiles 

Velocity  profiles  can  be  drawn  for  any  specified  axial  position. 
Initially  the  display  shown  in  Figure  36  is  drawn  on  the  screen. 


AXIAL  POSITION 


19- 


OVERLAY 


RADIAL  POSITION  TUT) 


RETURN 


Figure  36 

Computer  Display  of  Basic  Plot 
For  Velocity  Vector  Display 

The  horizontal  ar/i  vertical  axes  are  the  radial  position  in  millimeters, 
and  the  axial  velocity  in  centimeters  per  second,  respectively.  On  the 
right  side  of  the  screen  are  three  light  buttons.  CLEAR  causes  the 
entire  display  to  be  erased,  and  the  display  of  Figure  36  redrawn. 

OVERLAY  allows  more  than  one  velocity  profile  to  be  displayed  at  the 
same  time.  RETURN  returns  control  to  the  control  portion  of  the  main 
program.  At  the  top  of  the  display  is  a  scaled  down  drawing  of  the 
geometry  of  the  problem.  As  each  velocity  profile  is  drawn  on  the 

! 

I 


display,  a  small  arrow  head  indicates  the  axial  position  of  that  profile 
by  pointing  to  the  appropriate  position  on  the  scaled  drawing.  The 
display  in  figure  37  contains  one  velocity  profile  at  the  axial  position 


CLEM 


OVERLAY 


Figure  37 

Computer  Display  of  a  Typical 
Velocity  Profile 

shown.  All  of  the  programs  in  this  section  were  written  to  serve  one 
purpose.  That  is  to  give  the  user  a  quick  look  into  the  solution  of 
his  problem.  Because  of  this,  they  do  not  contain  a  lot  of  code 
required  to  produce  "beautiful"  pictures.  For  example,  in  the  velocity 
profiles  as  displayed  above,  no  data  smoothing  has  been  attempted.  The 
plot  shown  merely  connects  existing  data  points.  The  display  shown  in 
Figure  38  illustrates  the  ability  to  produce  a  series  of  velocity 
profiles  in  the  same  display.  This  type  of  display  is  meaningful  in 
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that  it  shows  the  development  of  the  flow  as  it  proceeds  down  the  length 


of  the  tube. 
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Figure  38 


Computer  Display  of  a  Series 
of  Velocity  Profiles 


Contour  Plots 


The  initial  display  of  the  contour  plotting  program  is  shown  in 


Figure  39.  The  user  points  the  mouse  at  the  light  buttons  on  the 


right  side  of  the  display  in  order  to  choose  the  variables  which  he 


wants  contoured.  After  doing  this,  he  uses  the  mouse  to  outline  the 


region  he  is  interested  in  seeing  onthe  figure  to  the  left  of  the 


light  buttons.  This  allows  him  to  "zoom  in"  on  areas  of  particular 


interest.  As  the  region  of  interest  is  narrowed  down,  the  number  of 


contour  levels  can  be  increased  so  that  more  detail  is  visible.  Figures 


40,  41,  and  42  illustrate  this  effect  on  a  contour  plot  of  the  stream 


function . 


FUNCTION 


This  zoom  effect  is  done  with  a  graphic  technique  known  as 


"windowing."  Windowing  is  the  process  of  defining  a  region  of  interest 
and  mapping  it  onto  a  particular  area  of  the  display  screen.  This 
technique  is  illustrated  in  Figure  43. 


Figure  43 

Mapping  Function  Performed  by  Windowing 


If  WCX  and  WCY  are  the  coordinates  in  the  coordinate  system  of  the 
problem,  of  the  center  of  the  window,  and  WS  is  the  measure  from  the 
center  to  one  side,  then  the  equations  for  the  windowing  transformation 
are 


and 
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where  the  viewport  is  the  entire  face  of  the  display  screen.  Also 
involved  in  producing  this  effect  is  a  process  known  as  "clipping." 
Clipping  involves  removing  the  lines  outside  of  the  region  of  interest 
from  the  display.  In  Figure  43,  all  of  the  points  in  the  coordinate 
space  undergo  the  transformations  of  equations  (62)  and  (63) .  This 
means  that  the  display  will  try  to  produce  lines  outs’ Je  of  its 
1024  x  1024  addressable  space.  On  the  1559,  this  produces  only  a  maze 
of  tangled  lines  crisscrossing  the  screen.  The  only  way  to  display  the 
picture  then  is  to  remove  those  lines  not  actually  within  the  specified 
region  of  interest. 

Figure  44  is  a  contour  plot  of  the  v-velocity  component,  and 
Figure  45  is  a  plot  of  the  u-velocity  component.  In  Figure  46,  we 
have  zoomed  in  slightly,  and  specified  more  contour  levels,  illustating 
the  capability  of  producing  more  detail  when  it  is  required.  Figure 
47  is  a  contour  of  the  pressure  field. 


Figure  44 

Contour  Plot  of  V-Velocity 
Component 


Figure  45 

Contour  Plot  of  U-Velocity 
Component 


Figure  46 

Contour  Plot  of  U-Velocity  Component 
With  More  Contour  Levels  Specified 
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Figure  47 

Contour  Plot  of  Pressure 

Velocity  Vectors 

! 

Velocicy  vectors  are  produced  by  means  of  the  subroutine  WECT. 

i 

This  program  blanks  out  areas  where  the  velocity  is  too  small  to  produce 
a  vector,  so  that  some  areas  in  the  display  will  in  fact  appear  blank. 

| 

Figures  48  and  49  are  displays  of  velocity  vectors. 

i 
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Figure  48 

Computer  Display  of  Velocity  Vectors 
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Same  Display  as  Figuie  48 
With  a  Smaller  Window 


In  the  interactive  graphics  environment  described  in  this  chapter,  the 


computer  user  can  sit  down  at  a  conveniently  placed  graphics  terminal 


On  the  graphics  display  he  can  have  his  data  presented  in  its  natural 


form  for  both  input  and  output.  Decisions  can  be  made  at  the  display 


allowing  several  separate  trials  at  a  single  session.  Yet,  this  has 


been  implemented  with  no  appreciable  load  on  the  computer  due  to  the 


addition  of  the  interactive  graphics 
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CHAPTER  SEVEN 
RESULTS 


A.  NUMERICAL  RESULTS 


Several  attempts  were  made  in  computing  the  flow  about  a  ball 
type  valve.  The  ABMAC  technique  as  outlined  in  Chapter  Four  relies 
upon  the  assumption  that  a  free-slip  boundary  condition  exists  at  the 
arbitrarily  shaped  walls  of  the  boundary  and  of  the  obstacle.  As  has 

been  pointed  out,  in  ABMAC  the?',  curved  walls  are  treated  as  a  free 

.1 

surface.  In  these  surface  cells,  the  pressure  is  computed  according 
to  the  equation 


ivl  i 

P  =  p 
k,l  k,l 


At 


6  U  (V^+1)  -  Vb(r,t)]  •  n> 


(64) 


k,l  . 


Here  n  is  the  unit  normal  defining  the  boundary  segment  associated 


with  cell  (k,l) ,  (V^  (r,t))^  ^  is  the  velocity  of  the  midpoint  of  the 


,n+l 


segment,  and  is  the  liquid  velocity  at  the  midpoint  of  the 
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segment.  According  to  this  equation,  the  pressure  is  not  adjusted 
proportional  to  the  divergence  of  the  cell,  but  rather  proportional  to 
the  flux  across  the  boundary.  This  certainly  represents  a  free-slip 
boundary  condition.  There  can  be  no  flow  across  the  boundary  wall, 
instead  the  fluid  flow  is  forced  to  be  tangential  to  the  boundary. 

The  velocity  vectors  in  Figure  50  illustrate  this  effect.  Note 
that  there  are  velocity  vectors  right  on  the  surface  of  the  ball.  As 
a  result  of  this,  the  velocity  directly  behind  the  ball  does  not  drop 
off  as  expected.  However,  a  strange  side  effect  is  shown  in  Figure  51. 


I 


note  how  the  velocities  far  downstream  react 


actually  approach  zero  at  the  center  of  the  tube 


Figure  50 

Computer  Display  of  Velocity  Vectors  on 
Ball  with  Free-Slip  Boundary  Condition 


Figure  51 

Computer  Display  of  Downstream  Anomoly 
in  Velocity  Vectors  with  Free-Slip  Boundary  Condition 
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In  order  to  pursue  a  more  realistic  solution,  the  case  where  the 
boundary  is  no-slip  must  be  considered.  By  a  no-slip  boundary,  we  mean 

■4 

one  on  which  both  the  normal  and  tangential  velocity  components  are 
zero. 

In  the  original  MAC  Technique,  a  no-slip  boundary  is  specified 
as  follows: 


OUTSIDE  WALL  FLUID 


Figure  52 

Specification  of  MAC  No-Slip  Boundary 


i-1/2, j  ° 

(65) 

i-1, j+1/2  =  ~Vi, j+1/2 

(66) 

i-1, j-1/2  =  "Vi,j-l/2  ’ 

(67) 

This  scheme  assumes  that  the  wall  is  coincident  with  some  part  of  the 
computing  mesh.  If,  however,  the  wall  is  represented  by  an  arbitrary 


segment  cutting  through  the  cell,  it  should  still  be  possible  to 
specify  the  across-the-wall  velocities  such  that  a  no-slip  boundary 
condition  exists. 


There  appear  to  be  two  classes  of  boundary  configurations  that 
need  to  be  considered.  The  first,  represented  in  Figure  53,  contains 
those  instances  where  there  is  an  empty  cell  only  on  one  side  of  the 
cell  containing  the  wall  segment 


ABMAC  Cell  with  Only  One  Empty  Cell  Bordering 
the  Cell  Containing  the  Boundary  Segment 


In  this  class  of  cells,  the  velocities 


Vi , j+1/2 '  Vi , j-1/2 ' 


and 


^i-l/2'j  nee<^  to  be  computed  such  that  a  linear  interpolation  across 
the  boundary  will  yield  zero  velocity  components  on  the  wall.  In 


order  to  compute  the  required  velocities,  a  linear  interpolation  is 


used  in  the  direction  most  nearly  normal  to  the  boundary  segment.  In 
Figure  54  the  case  under  consideration  is  shown. 


Figure  54 

Linear  Interpolation  of  Boundary  Values  for  the 
Class  of  Cells  Illustrated  in  Figure  53. 


Since  the  midpoint  of  the  segment  is  known,  for  j 


Ui-l/2,j  ”(Ui+l/2,j 


*  ALl)  /  AL2, 


(68) 


where  ALl  and  AL2  are  easily  computed. 

In  order  to  compute  V.  ,  ,  the  point  XL  where  the  wall  cuts 

i r  J-l/2 

the  mesh  must  be  known.  Given  PNORX  and  PNORY,  the  midpoint  of  the 
segment,  and  DNORX  and  DNORY ,  the  direction  cosines  of  the  segment, 
the  point  XL  is  given  by 


where 


XL 


'  ™0RY) 


/  TAN  +  PNORX, 


(69) 


TAN  =  DNORX  /  DNORY. 


(70) 


Nov  with  XL  known,  j_^/2  Can  comPu^e<3  as  in  equation  (68)  . 
When  the  wall  crosses  the  mesh  outside  of  the  unknown  velocity  as  in 
the  case  of  vi? j+i/2'  ifc  should  be  noted  that  equation  (68)  still 
produces  a  correct  velocity  for  that  point. 

This  system  works  for  all  orientations  of  the  boundary,  where 
only  one  side  of  the  boundary  cell  faces  an  empty  cell.  The  equations 
for  determining  XU,  XL,  AL1,  and  AL2  are  a  little  different  for  each 
case,  but  the  general  approach  is  the  same. 

The  second  class  of  problems  are  those  in  which  an  empty  cell 
faces  the  obstacle  cell  on  two  sides.  This  is  shown  in  Figure  55. 

EMPTY 


Figure  55 

ABMAC  Cell  with  Two  Empty  Cells  Bordering  the 
Cell  Containing  the  Boundary  Segment 


In  this  case,  Vj^j+jy2  and  Ui+l/2  j  be  computed  using  the 

velocities  directly  across  the  cell.  In  order  to  do  this,  the  lengths 
XL,  and  YL  must  oe  known,  as  shown  in  Figure  56. 


Figure  56 

Computation  of  XL  and  YL  for  Determining  the  Boundary 
Values  for  the  Class  of  Cells  Illustrated  in  Figure  55 


XI,  the  point  where  the  boundary  segment  crosses  the  line  z  =  z^ 
is  given  as 

XI  =  (Z_.  -  PNORY)  /  TAN  +  PNORX,  (71) 

where  PNORY,  PNORX,  and  TAN  have  identical  meanings  as  in  equation  (69) . 
With  XI  known,  the  lengths  XL  and  YL  can  be  computed  and  the  velocities 
found  using  a  linear  interpolation  formula. 

Results  using  the  no-slip  boundary  condition  represent  a  far 
better  solution  than  those  with  the  fr>'e  slip  condition.  The  velocity 
profiles  shown  in  Figures  57  and  58  are  at  positions  upstream  from  the 
ball.  Those  in  Figures  59,  60,  and  61  are  at  positions  downstream  from 
the  ball.  These  profiles  represent  a  realistic  simulation  of  the  flow 


about  a  ball  type  valve. 


AXIAL  posmsT 


Upstream  Velocity  Profiles 
For  No-Slip  Boundary  Condition 


Downstream  Velocity  Profiles 
for  No-Slip  Boundary  Conditions 
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AXIAL  POSITION 


Figure  61 

Downstream  Velocity  Profiles 
for  No-Slip  Boundary  Conditions 

Figure  62  and  63  are  comparisons  of  these  velocity  profiles  with 
selected  profiles  produced  experimentally  by  Wieting.  The  shapes  of 
the  profiles  are  very  similar,  but  note  that  those  produced  numerically 
show  slightly  faster  velocities. 

The  differences  can  be  attributed  to  several  factors.  First,  the 
numerical  solution  represented  here  is  a  steady  state  solution,  i.e. 
given  some  initial  conditions  and  a  set  of  boundary  conditions,  the 
computer  iterates  on  the  given  equations  until  the  solution  satisfies 
the  given  conditions.  The  experimental  solution  on  the  other  hand  is 
time  dependent.  The  pulsatile  motion  of  the  fluid,  the  motion  of  the 
ball,  and  other  time  dependent  factors  will  certainly  make  a  difference. 
The  exact  moment  at  which  the  profiles  were  measured  could  in  itself 
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produce  different  results.  From  a  numerical  standpoint,  a  more  accurate 
solution  could  certainly  be  obtained  if  a  finer  computational  mesh  were 
used. 

Figures  64,  65,  66,  and  67  are  contour  plots  of  the  stream-function, 

l 

V-velocity  component,  U-velocity  component,  and  pressure.  Figure  68 
shows  uhe  velocity  vectors  for  the  solution.  These  figures  represent  a 
realistic  representation  of  the  flow. 

B.  THE  COMPUTER  PROGRAM 
-  _ 

I 

In  addition  to  producing  numerical  results,  the  goal  of  this  research 
was  to  produce  a  series  of  programs  which  used  the  computer  to  its  best 
advantage . 

In  order  to  make  the  ABMAC  code  more  efficient  for  use  on  the  PDP-10 
time  sharing  system,  several  changes  were  made  in  the  program. 

The  first  major  change  involved  separating  the  initialization 
portion  of  the  program  from  the  computational  part.  This  is  a  significant 
change  for  many  reasons.  During  the  initialization  procedure,  the 
curved  boundary  segments  are  defined,  fluid  particles  are  created,  and 
the  cell  flags  are  marked.  This  involves  a  great  deal  of  time,  program 
space,  and  temporary  storage.  By  separating  this  code  from  the  rest  of 
the  program,  the  amount  of  core  required  to  run  in  dropped  from  96K  to 

J 

l 

48k.  Under  our  time  sharing  system,  this  means  a  considerable  increase 
in  efficiency. 

t 

I 

During  a  long  production  run,  the  set-up  time  may  be  insignificant 
when  compared  to  the  total  run  time.  However,  testing  and  debugging 
pose  an  entirely  different  picture.  Usually,  interest  lies  only  in  the 


Starr-Edwards  Ball-Type 


Ball-Type 
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first  one  or  two  time  cycles.  In  this  frame  of  reference,  the  set  up 
time  becomes  a  large  part  of  the  total  run  time.  Therefore,  by  removing 
that  code  from  the  rest  of  the  program,  the  sot-up  for  a  particular 
test  need  only  be  done  once.  Each  test  can  use  the  same  stored  values 

of  initial  data.  The  overall  scheme  of  the  initialization  procedure  is 
shown  in  Figure  69. 


Figure  60 

Block  Diagram  of  Initialization  Procedure 
For  Modified  Version  of  ABMAC  Code 

The  second  change  involved  combining  several  pieces  of  code  into 
common  subroutines.  The  major  changes  in  this  respect  involved  the 
velocity  computation  code .  The  ABMAC  technique  requires  a  velocity 
computation  at  two  distinct  times.  As  the  pressure  is  re-computed  for 
each  cell,  the  velocities  are  simultaneously  changed  for  that  cell.  In 
addition,  at  the  end  of  each 


pressure  iteration,  the  entire  field  of 
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velocities  is  re-computed.  Although  computationally  the  same,  the  codes 
for  these  two  distinct  subroutines  are  different. 

It  was  a  simple  matter,  to  comline  these  subroutines,  using  a  check 
to  determine  which  function  to  perform.  Subroutine  VEL55  for  example  is 
called  witii  three  arguments.  If  one  of  these  arguments  is  zero,  it 
indicates  that  the  entire  mesh  is  to  be  swept.  If  non  zero,  the  arguments 
indicate  which  cell  the  velocities  are  to  be  computed  in.  The  code  to 
do  this  is  as  follows: 

SUBROUTINE  VEL55  (KM,  K,  L) 

COMMON  STATEMENTS 


IF  (KM,  NE  .  0)  GO  TO  10 
DO  1  L  =  2,  LMZ 
KMM  =  L  KMAX 
DO  1  k  =  2,  KMZ 
KM  =  K  +  KMM  -  KMAX 
10  KT  =  KM  +  KMAX 
KB  =  KM  -  KMAX 

The  third  change  involved  the  determination  c..  a  system  for  setting 
and  checking  cell  flags.  The  original  ABMAC  code,  written  in  LRLTRAN 
for  the  CDC  7600,  took  advantage  of  several  nice  language  features  not 
generally  available.  In  particular,  LRLTRAN  contains  a  byte  specification 
and  a  structure  specification.  In  ABMAC,  the  cell  glags  SUR,  FULL,  EMP, 
END,  and  etc.,  were  specified  as  1  bit  bytes.  These  flags  were  then 
combined  into  one  word  using  the  structure  specification,  and  that  set 
of  flags  was  made  into  an  array. 

These  1  bit  bytes  could  then  be  accessed  by  name.  For  example: 

OB  (KM)  =  1, 


FULL  (KM  +  1)  =  0  . 
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Treating  these  quantities  as  truth  values  made  it  easy  to  check 
cell  flags  and  make  decisions  based  on  their  contents.  For  example: 

TEST  =  FULL  (KM).  UN.  (SUR  (KM)  .  INT.  ( .NOT.COR(KM) ) ) 

IF  (TEST)  20,  192. 

In  this  illustration ,  are  shown  three  other  items  peculiar  only  to 
LRLTRAN.  .UN.  is  a  bit  or,  .INT.  is  a  bit  by  bit  AND,  and  the  statement 

IF  (TEST)  20,  192 

means  go  to  statement  20  if  test  is  true,  and  go  to  statement  192  if  it 
is  false. 

In  order  to  simulate  this  scheme  as  efficiently  as  possible,  a 
table  was  devised  which  marked  the  cells  as  powers  of  two.  The  flags 
are  defined  as 


SUR  =  4 

FULL  =  8 

EMP  =  16 

BND  =  32 

IN  =  64 

OUT  =  128 

FRSLP  =  256 

NOSLP  =  512 


EMPBND  =  1024 

OB  =  2048 

COR  =  4096 

OK  =  8192 

GAS  =  16384 
ARB  =  32768 


A  cell  then  can  be  marked  as  full  by  writing 
FLAG  (KM)  =  LFAG  (KM)  .  OR.  FULL, 

while  checking  the  cell  to  see  if  it  is  full  can  be  done  by  writing 
IF  ( (FLAG (KM) ,  AND. FULL) .EQ. FULL)  ...  . 


It  can  be  seen  that  while  it  takes  more  source  code  to  write  the  same 


thing,  the  code  for  the  PDP-10  is  just  as  efficient  both  space-wise  and 


time-wise 


The  final  major  change  was  one  dictated  by  the  heavy  load  this 


type  of  problem  placed  on  the  system.  Since  the  problem  is  being  run  on 


a  time-shared  system,  it  must  compete  in  time  with  other  jobs.  The 


scheduler  on  the  PDP-10  is  such  that  a  long  compute  bound  job  is  not 


favored.  In  order  to  take  advantage  of  a  LI  possible  time  available  on 


the  machine,  and  yet  not  load  the  system,  the  following  scheme  was  used. 


The  PDP-10  allows  background  jobs  to  be  initiated  using  a  system 


program  called  FIB.  FIB  queues  up  requests  for  background  jobs,  and 


runs  them  whenever  the  machine  load  average  drops  below  a  specified 


point.  Jobs  are  run  according  to  the  requested  run  times,  i.e.,  a  job 


requesting  two  minutes  of  CPU  time  will  run  before  one  requesting  four 


minutes.  If  a  process  can  be  broken  up  into  discreet  segments,  such 


that  each  segment  uses  two  minutes  or  less,  the  FIB  program  will  use 


all  available  machine  time  to  run  these  segments  without  loading  the 


machine. 


ABMAC  runs  through  one  time  cycle  in  about  12  minutes.  This 


provides  a  convenient  place  to  segment  the  process.  Instead  of  writing 


out  a  file  at  the  end  of  each  segment,  and  reading  it  in  at  the  beginning 


of  the  next,  the  program  maps  a  complete  core  image  of  itself  onto  a 


file  called  P.DMP.  At  the  beginning  of  the  next  cycle  the  command 


RUN  P.DMP  is  sufficient  to  start  the  next  cycle  with  all  of  the  proper 


data. 


In  the  event  that  the  machine  crashes  during  this  mapping  operation, 


two  different  versions  of  P.DMP  are  written  out,  the  program  alternating 
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between  them.  This  insures  that  there  is  always  one  complete,  good 
version  of  P.DMP.  on  the  system. 

In  order  to  keep  the  program  running,  the  FIB  request  must  generate 
the  next  FIB  request  as  well  as  the  next  program  segment.  Also,  it 
must  be  sure  that  it  uses  the  correct  version  of  P.DMP.  The  FIB  request 
necessary  to  do  this  is  shown  here.  The  machine  responses  are  under¬ 
lined. 

(1)  £  FIB 

(2)  @£  <SYSTEM>  EXEC.  SAV 

(3)  @@  CONSOLE-OUTPUT  (TO  FILE)  NIL. DAT  [NEW  FILE] 

(4)  @@  RUNTIME  (MAXIMUM  IN  MINUTES)  2  [CONFIRM] 

(5)  @@  COMMAND-TEXT  (ENDING  WITH  i  Z) 

(6)  *  COPY  O-REQUEST . INPUT  (TO)  REQUESTED-F-I-B .  INPUT 

(7)  £  RUN  GETIT 

(8)  £  P 

(9)  £  Y 

(10)  £  Y 

(11)  £  N 

(12 )  £  +  Z 

(13)  £ 

Line  (1)  calls  up  the  FIB  program.  Line  (2)  tells  FIB  that  it  is 
to  run  the  system  EXEC  routine.  Line  (3)  specifies  that  any  console 
output  is  to  go  to  a  file  named  NIL. DAT.  Line  (4)  specifies  a  two 
minute  maximum  run  time.  Line  (5)  asks  for  a  list  of  commands  and/or 
text  to  be  executed  by  the  routine  specified  in  line  (2) .  Line  (6) 
copies  from  a  file  O-REQUEST . INPUT ,  the  next  FIB  request.  This  is  put 
into  the  queue  by  writing  it  onto  a  file  called  .vEQUESTED-F-I-B. INPUT. 
Line  (7)  tells  the  system  to  run  a  program  called  GETIT.  GETIT  looks 
at  the  version  numbers  of  P.DMP,  selects  the  proper  one,  and  maps  it 


...  ...  .  i  .  .-,^1  .aiiim.- 


1 1  liiti  Mi  jjjSiiitl&u  t.-. .. 


onto  core.  Control  ts  then  passed  to  P.DMP.  Lines  (8) 


and  (11)  contain  text  which  is  used  by  P.DMP.  Line  (12)  terminates 


the  list,  and  line  (13)  returns  to  the  EXEC 


CHAPTER  EIGHT 


CONCLUSIONS 

The  numerical  results  of  this  study  illustrate  the  applicability 
of  a  unique  numerical  technique  to  an  extremely  important  problem.  The 
development  of  a  method  for  specifying  a  flexible,  arbitrarily  shaped, 
no-slip  boundary  provides  an  important  step  in  studying  blood  flow 
characteristics.  The  technique  developed  in  this  report  is  based  on 
the  Marker  and  Cell  methodology  produced  at  Los  Alamos  Scientific 
Laboratory.  This  method,  using  marker  particles,  provided  a  powerful 
method  for  defining  free  surfaces  in  a  fluid  flow  study,  as  well  as  the 
ability  to  solve  the  problem  in  terms  of  the  primitive  variables  of 
velocity  and  pressure.  The  marker  particle  concept  allowed  the 
definition  of  an  arbitrarily  shaped,  flexible  boundary  in  the  flow 
problem,  as  demonstrated  in  the  ABMAC  method  developed  at  the  Lawrence 
Livermore  Labs.  Adding  the  no-slip  boundary  concept  developed  in  this 
report  to  ABMAC  proviaes  a  powerful  tool  for  blood  flow  studies. 

It  should  be  noted  that  in  the  steady-state,  confined  flow 
solutions  presented  in  this  paper,  the  marker  particles  used  originally 
in  MAC  have  no  significance,  and  in  fact  have  been  eliminated  from  the 
computation  altogether.  Therefore,  no  figures  containing  marker  particles 
appear  in  the  text.  However,  once  the  walls  are  allowed  to  flex,  or  the 
ball  is  allowed  to  move,  the  particles  again  become  important  in 
maintaining  the  definition  of  the  walls. 

In  addition  to  the  development  and  application  of  a  new  numerical 
method,  this  report  has  illustrated  the  kinds  of  techniques  necessary 
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in  order  to  include  an  interactive  graphic  capability  in  the  solution. 
Interactive  computer  graphics  can  play  an  important  ^ole  in  the  solutions 
of  large  numerical  problems,  but  the  implementation  of  such  a  capability 
must  be  done  with  care.  Performed  in  the  wrong  manner,  it  can  hinder 
the  solution  process  rather  than  help  it.  The  techniques  of  program 
segmentation  and  modularization  along  with  core  sharing  provide  an 
efficient,  powerful  implementation  of  interactive  graphics. 

The  next  logical  step  in  this  research  would  be  to  add  the  moving 
boundary  capability.  Basically,  this  is  simply  a  matter  of  re-introducing 
the  marker  particles  into  the  solution  in  order  to  keep  track  of  the 
moving  boundaries.  Some  programming  would  also  need  to  be  included  to 
define  the  movement  that  would  be  desired  in  the  walls.  For  example, 
the  ball  would  be  moved  as  a  function  of  the  pressure  field,  the  walls 
could  move  according  to  a  pulsatile  waveform  superimposed  on  the  system. 

The  addition  of  this  feature  would  allow  a  motion-picture  type  of 
display,  where  the  streamlines,  velocities,  etc.  could  be  seen  changing 
as  the  valve  went  through  an  open-close  cycle.  With  this  kind  of  tool, 
a  capability  would  be  available  for  studying  many  different  heart 
valve  designs.  With  the  information  gained  from  that  kind  of  study, 
new  heart  valves  can  be  designed  and  evaluated  with  the  computer. 

This  technology  will  be  extended  into  other  blood  flow  studies, 
such  as  capillary  flow,  the  formation  of  atherosclerotic  plaques,  and 
pulmonary  functions. 

Of  particular  interest  to  the  study  of  plaque  or  lesion  formation 
in  arteries  is  the  allowance  of  apuising,  arterial  wall  and  blood  flow 
into  the  overall  investigation  by  this  procedure.  For  example,  the 


prime  cause  of  some  800,000  heart  attacks  in  the  United  States  each 
year  is  an  infarction  of  a  coronary  artery.  Such  an  obstruction  of 
the  local  circulation  by  an  advanced  plaque  formation,  thrombus  or 
embolus  is  involved  in  a  many-branched  amplification  of  our  present 
studies  concerning  arterial  geometries.  It  is  realized  that  the  inclusion 
of  moving  (pulsing) ,  free  boundaries  and  their  computer  graphics 
simulations  into  the  problem  will  allow  tethering,  tapering  and  reflection 
effects;  conceptual  requirements  that  would  aid  in  advancing  the  hypotheses 
of  myocardial  infarction  mechanisms.  Knowledge  of  such  mechanisms  may 
not  be  attainable  by  any  other  analytical  means  except  by  such  resulting 
computer  simulations . 
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APPENDIX  I 


GRAPHICAL  INPUT  PROGRAM 


Routine  Name 


MAIN 

MAIN1 

INPUT 

IN  PUT  1 

MESH 

MESH1 

MESH2 

FIGURE 

FIG1 

FIG2 

FIG3 

FIG4 

TTY  IN 

FLUID 

FLU1 

FLU  2 

CONVG 

CONVG1 

CONVG2 

CNTRL 

CNTRL1 

CNTRL2 

CHECK 

OUTP 

ARO 

BOXES 

BOX 


Function 


Main  program 

Displays  input  selection 
Controls  input 
Displays  input  functions 
Controls  mesh  input 
Accepts  mesh  input 
Displays  mesh  input 
Controls  figure  input 
Displays  input  functions 
Displays  mesh 
Accept  figure  input 
Displays  figure 
Does  teletype  input 
Controls  fluid  input 
Accepts  fluid  input 
Displays  fluid  input 
Controls  parameter  input 
Accepts  parameter  input 
Displays  parameter  input 
Controls  parameter  input 
Accepts  parameter  input 
Displays  parameter  input 
Displays  completed  description 
Outputs  completed  description 
Draws  arrow  heads 
Draws  light  buttons 
Draws  one  box 


. - 


COMMON  MtSS<7» 

COMMON  KMAX'LMAX'MU'RHOA'DRfDZ 

common  np,bpx(50) »bpy<50) »unot»vnot,uin»vin 

common  ut,nedit»eps2»betainstop»npit»ndump.nexp 

COMMON/MOuSE/INX»INY»InSW»SWSTaT 

COMMON/ETC/ 1 SMXl » ISMX2 , NXSP » NYSP » FNAME 

integer  fname 

real  mu 

call  setdis 

call  maini 

call  wmouse 

InY=(INY+128)/128 
GO  TO  (5»2»  .1)  INY 

jump  table  for  input  type 

J.-TTY 

2- UISK 

3- 1ERMINAL 

N0EV1=5 
call  keadit 
call  exit 

NUEV1=2I 

type  3 

format ( ih  i 'input  filename: » ,%) 
accept  4 » fname 

F0RMAT(A5) 

FNAME=FNAME+32 
Call  iFILE(21. FNAME) 

CALL  READIT 
CALL  EXIT 
NUEVI=0 
CALL  INPUT 

call  exit 
enu 


SUBROUTINE  MAIN1 
call  boxesv3) 

Call  M0VET0(752,24) 

call  write ( »terminal<>» ) 

CALL  M0VET0(768» 152) 

call  write( *disk<>» ) 

CALL  MOVETO(76U,280) 

call  write( •ttyo* ) 

CALL  MOVE  TO ( 728  *  350 ) 

call  wkitei’Input  fromsom 

call  send 

return 

END 


SUBROUTINE  INPUT 

CUMMON/MOuSE/INX» INY» INSW#  SWSTAT 

call  inputi 
call  wmouse 

INY=(INY+120)/128 

GO  TO  (2»^»4»5»6»7»8) InY 


jump  table  for  input  modules 


call  check 
call  wmouse 
call  outp 
call  exit 
Call  mod 
GO  TO  1 

call  cntrl 

too  TO  J 
call  convg 
GO  TO  1 
CALL  FLUID 
GO  TO  1 

call  figure 
Go  TO  1 
call  mesh 

GO  TO  1 

end 
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SUdROurlNt  INPUT  1 
CALL  bOXES(7) 
call  moveto<76u,24) 
call  write < ’Exiio* ) 
call  MovEro(7t5o»  152) 
call  wkite< 'modifyo*  > 
call  moveto(74o,280) 
call  writet 'Contrulo' j 

CALL  M0VET0(732f422) 

call  writet ’COnvergenceo*  > 

CALL  MOVErO(748f 390) 

call  write (  •critekiao*  ) 
Call  MOVETO(760,S36) 

call  writet »fluido' j 

Call  M0VET0(746>664) 

call  write (  ♦bounuaryo*  ) 

CALL  M0VErU(760,792) 

call  writlt  ‘Mesho*  ) 
call  send 

RETURN 

END 


SudROUTINE  MESH 

COMMON/MOuSE/INX» INY» iNSWr SWSTaT 
DO  1  1=1 >5 

call  meshkd 

CALL  rtMOUSE 
INY=( INY+120)/128 
iF(lNY.GE.b)  GO  TO  3 
CALL  MESHl(INY) 

60  TO  2 
CONTINUE 
RETURN 
End 


subroutine  meshkj) 
common  mess (7) 

COMMON  KMaX  #  LMAX»  MU , RHOA  #  OR  >  DZ 

COMMON  NP, uPX ( SO) >DPY(50) ♦ UNOT , VNOT , UlN» VIN 

common  ut , neu  n  r eps2 »  beta  #  nstop  »  npi t  » nqump r nexp 

CoMMON/MOuSE/INX» INY» InSw#  SWSTAT 
COMMON/E Tc/ I SMX1 » ISMX2# NXSP » NYSP 
Gu  TO  (4f6*8»13»15)J 
4  T i PE  S 

b  F0RMAT(1H  »*OR=»»i) 

ACCEPT  3»U)< 

^  Format ( ai j 

3  FORMAT(F) 

00  TO  19 

6  type  7 

7  format ( in  »*uz=»»d 

accept  3»UZ 

Go  TO  19 

a  type  9 

9  format ( ih  , *rect  or  cyl  coord?»»$) 

ACCEPT  2»  nSYS 
IF (NSYS.EO. »R» )NEXP=0 

if (nsys.eo, *c» )NExp=i 

go  TO  19 

13  type  ia 

14  F OKMAT ( 1H  t  ' NO,  OF  CELlS  IN  R=*,$) 

ACCEPT  12»  KMAX 

GO  TO  19 
lb  TYPE  19 

16  Format ( ih  »*no.  of  cells  in  z=»>$) 

ACCEPT  12,LMAX 
NYSP=9nO/(LMAX-2) 
nxsp=nysp*ur/oz 
12  format (i) 

19  CALL  MESH2 

RETURN 
end 


Subroutine  mesh2 
common  mesS(7) 

common  kmax,lmax*mu,rhoa.dr»dz 

COMMON  NP,SPX(50) »SPY(50) »UNOTfVNOT»OiN»VIN 

common  dt,nedit»eps2»8eta*nstop»npit»ndump»nexp 

COMMOIVMOuSE/INX»INY»InSW»SWSTAT 

COMMON/ETC/ ISMX1 » ISMX2#NXSP» NYSP 
CALL  B0XES(6) 

CALL  M0VET0<744,24) 

call  write( *dr=a.aaaa<>' »dr> 

call  MOVE r0(744# 152) 

call  write < ’QZsa.aaaaO’ #dz) 
call  movetO(746»2B0) 

IF(NEXP.EQ.O)CALL  writecrect  cooruom 
IF  ( NEXP.Eu*  1  )CALL  HRITEPCYL  COORDO') 

Call  MOVETO(722»422) 

call  write(’no.  of  cellso*  > 

call  MOVETO( 734»  390 ) 

call  writecin  r=aaao*  »kmax> 

Call  MOVFTO(722f550) 

CALL  WRlTEt’NO.  OF  CELlSO*) 

Call  M0VET0<734,518) 

call  «/rite<*in  z  =aaa<>* »lmax> 

Call  M0VET0<768»664) 

call  write ( *retukno» > 

call  send 

return 

end 


. 


SUbROUT INt  FIGURE 
COMMON  MESS ( 7 ) 

COMMON  KMAX , UMAX » MU , RHOA , DR  t D2 

COMMON  NP,bPX(50)  »BPY<50)  ,  UNOT  ,  VNOT  t  UlN,  VIN 

common  ut  , ned i  t » EPS2 » beta » i>istop »  npi t , nuump , nexp 

COMMON/MOuSE/INX» INY» INSw»  SWSTAT 

COMMON/ETC/ 1 SMX1 » I SMX2 » NXSP » NYSP 

call  figi 

call  WMOUsE 

lNY=  ( INY+128) /12B 

GO  TO  ( 1 »  2»  7 ) INY 

RETURN 

type  3 

FORMAT <1H  r* INFLOW  VELOCITIES:*) 

type  *♦ 

format ( m  r»v-iN=*,$) 

ACCEPT  SrVlN 
FORMAT (F) 

type  6 

format ( ih  , *u-in=*,s) 
accept  s*uin 

GO  TO  10 

call  fig2 
call  fig3 
go  TO  io 
return 
end 
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SUttROUTlNt  FIG1 
CALL  BOXES (3) 

CALL  M0VET0<768»24) 

Call  WRITt(»RETUKN<>*) 

CALL  MOVETO(740»t52) 

call  mite(  »inflow<>»  j 
call  moveto(732»280) 

Call  write< »boundaries<>* ) 

call  send 

return 

end 


SUBROUTINE  Fl02 
COMMON  MESS(7) 

COMMON  KMaX,LMAX»MU,RHOA»DK»DZ 

COMMON  NP »BPX(  50)  »BPY  (50)  »UNOT,  VNOT»UlN»  VIN 

C OMMON  DT , NED I T , EPS2 #BETA»NSTOP»NPIT  r NDUMP , NEXP 

COMMON/MOjbE/INX» INY» INSW»SWSTaT 

COMMON/ETC/ 1 SMX1 » ISMX2»NXSP#  NYSP 

KMAXZ=KMAX-2 

L.MAX2=LMAX-2 

MAXY=LMAX^*NYSP+128 

MaXX=KMAXz*NXSP+128 

DO  10  I=lrKMAX-l 

NXLINE=128+( I“1)*NXSP 

call  moveto(Nxline*i28) 

call  vecto(nxline,maxyj 

DO  20  J=1 » LMAX-1 
NYLINE=128+ ( J“1)*NYSP 
call  moveto(123.nyline) 

CALL  VECTo(MAXX,NYLINE) 

call  send 

call  ako(64,192. *u' j 
call  y/EC(o»~i28) 
call  vec(i28»0) 

Call  ARO ( 207  * 49 » ' L ' ) 

call  moveto(15o»6o> 

Call  WRITE('R<>») 

Call  MOVETO(10»200) 
call  write( u<>*  ) 

CALL  M0VET0(256»52) 

call  «rite(*mesh  is  aaa  by  aaa  cellso' »kmax»lmax 

CALL  MOVETO ( 325» 25) 

CALL  WRITE( *DR=.AAAA»  UZ=.aAAA<>* ,DR»DZ) 

call  apnd 

CALL  ARO( i28* 128* *U* ) 

RETURN 

End 


Subroutine  fig3 
common  mess(7) 

COMMON  KMaX,LMAX»MU#RHOA»DR»DZ 

COMMON  NP , BPX ( 50 ) , BPY ( 50 ) t UNOT , VNOT , Ul N r  V IN 

COMMON  DT , NED I T  t EPS2 #  BET A » NSTOP t NPI T t NDUMP t NEXP 

common/mouse/inx#iny»insw»swstat 

COMMON/ETC/ I SMX1 » ISMX2#NXSP»NYSP 
LOGICAL  IMF 
LOGICAL  TERM 

term=.true. 
type  101 

FORMAT (1H  ,  *TTY  OR  MOUSE  INPUT?* »$) 

ACCEPT  102» IDEV 
FoRMAT(Al) 

iFdDEV.NE.’M*  )TERM=. false. 

imf=.true. 

SMX=(KMAX-2)*DR 

SMY=(LMAX-2)*DZ 

Sx=DR/NXSP 

St=DZ/NYSP 

mm=i 

IF (TERM) Call  wmouse 

IF ( .NOT • TERM) CALL  TTYIN 

BPX(MM)=(INX-128)*SX 

BPY(MM)=(INY-12B)*SY 

IF (BPX (MM) .LT.DR)BPX(MM)=0. 

IF(BPY(MM) .LT.DZ)BPY(MM)=0. 

IF(BPX(MM).GT,SMX)BPX(MM)=SMX 

IF(BPX(MM) ,LT.0R.AND.6PY(MM) .LT.DZ)GO  TO  6 

IF (BPY (MM) ,LT.DR)GO  TO  2 

IF(BPY(MM) ,GT.SMY)G0  TO  3 

IF (IMF) GO  TO  4 

call  aro(inx»iny»*lm 

GO  TO  5 

CALL  AROUNX»INY»’U«) 

GO  TO  I  5 

CALL  ArO(IMX»INY» »D* ) 

imf=. False, 
ismxismm 

GO  TO  5 

CALL  ARO(XNX»INY»«R* ) 

MM-MM+1 
GO  TO  1 
ISMX2=MM 
Call  FIG4 
return 
end 


SUBROUTINE  FIG4 
COMMON  MESS (7) 

COMMON  KMaX,LMAX#MU»RHoA#DR»DZ 
COMMON  NP#bPX(5U)  »tJPY(50)  »UN0T»VN0T»UIN» VIN 
COMMON  L)T ,  NED  I T ,  EPS2 » BETA » NSTOP » NPI T ,  NDUMP  *  NEXP 
COMMOIVMOUSE/INX#  INY»  INSW»SWSTAT 
COMMON/ETC/ 1 SMX1 , 1 SMX2 , NXSP , NYSP 

call  movetou28»128) 

L)U  1  i  =  l»ISMX2 

U=<BPX(I)*NXSP)/DR+i28 

lY=(BPr(I)*NYSP)/0Z+128 

call  yecto( ix, iy) 

call  moveto(732,350) 

call  hrite( ‘Returno* ) 

call  send 

return 

end 
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subroutine  ttyin 

COMMON  MESS (7) 

COMMON  KMAX'LMAX'MU'RHOArDR'DZ 

COMMON  NPf tiPX(50)  »BPY(bO)»UNOT,VNOTfUlN»VIN 

COMMON  DT , NEO I T  # EPS2» BETA » NSTOP »NP*T» NDUMP » NEXP 

COMMON/MOUSE/ I NX » !NY» InSW»SWSTAT 

COMMON/ETC/ 1 SMX1 1 ISMX2»NXSPr  NYSP 

TYPE  1 

format  uH  »»*») 

ACCEPT  2f AlNX»AlNy 

format (2F) 

INX=120+(AINX*NXSP)/DR 
INY=12B+(AINY*NYSP)/DZ 
RE  TURN 

end 


SUbROUTINe  FLUID 

COMMON/MOjbE/INX»IiMY»Il\|SW»SWSTAT 
Do  1  1  =  1 r  5 
CALL  FLUl(l) 

call  wmouse 

1hY=<INY+12B)/128 
XF(INY.bE.b)RETURN 
call  fluI(Iny) 


SUBROUTINE  FLUl(J) 

common  mess < 7) 

COMMON  KMaX,LMAX»MU,RHOA»DR»DZ 

common  np , bpx ( so ) »  bpy  <  50> » unot ,  vnot  , uin , vin 

COMMON  UT , NED I T , EPS2 » BETA » NSTOP » NPI T , NDUMP , NEXP 
COMMON/MOuSE/ I NX » INY# InSW»SWSTAT 
COMMON/ETC/ 1 SMX1 , I SMX2 , NXSP » NYSP 

real  mu 

60  TO  (1»4»6»9»U)J 

type  2 

FORMA  f (1H  , ‘INITIAL  U  VELOCITY:’ »$> 

ACCEPT  3» UNOT 

format (F) 

00  TO  15 

type  5 

format ( ih  »* initial  v  velocity:' »$) 

ACCEPT  3»  VNOT 
00  TO  15 

type  7 

format ( ih  , ‘particle  density:*, s> 
accept  b,np 

FORMAT(I) 

00  TO  15 

type  10 

format ( ih  ,  *rhqa='»s) 
accept  3, khoa 

00  TO  15 

type  12 

FORMAT (IH  ,‘MU:',S) 

ACCEPT  3, MU 
GO  TO  15 

call  flu2 
return 

Lnu 


subroutine  flu2 

COMMON  MESS (7) 

common  kmax,lmax»mu,rhoa»uk»dz 

common  np,upx(so) »bpy ( 50 ) #unot,vnot»uin, vin 

common  dt,nel>it,eps2»beta*nstqp,npit,ndump»nexp 

COMMON/MOuSE/ INX» INY» lNSw»  SWSTAT 
COMMON/ETC/ISMX1, ISMX2,NXSP,NYSP 
REAL  MU 

call  boxes(6) 

Call  M0VET0(732,24) 

call  write( *u=aaa.aaa<>» »unod 

call  moveto(74o» 152) 

call  write( *v=aaa.aaa<>* , vnot> 

CALL  M0VET0(7Q4,279) 

call  write( ’particle  densityom 

call  movetQ(770,25U) 

call  wkith *=aa<>» ,npj 

call  movetO(732,4iq) 

call  write( *rhoa=a.aaaaaaa<>* #rhoa) 

CALL  M0VET0(732,536) 

Call  kritec ’MU=a.aaaaaaa<>» »muj 
CALL  M0VET0(732»664) 

call  writei *return<>» ) 

call  send 

return 

enu 


subroutine  convg 

COMMON/MOuSE/INXrINY?lNSW»SWSTAT 
DO  1  1  =  1*3 

call  convgKI) 
call  wmouse 

INY=(INY+128)/128 

IF(INY.GE.4)RETURN 

call  convgkiny) 

GO  TO  2 


SUBROUTINE  COIWGl(J) 

COMMON  MESS ( 7 ) 

COMMON  KMAX » LMAX » MU , RHOA » UK » D Z 

common  NP,oPx(bO) »bpyisO) »unot,vnot,UiN,vin 
common  ut,nedj t »eps2»ueta»nstop*npit»ndumPiNExp 

COMMON/MOUSE/ 1 NX » I NY  t INSW  t SWSTAT 
COMMON/ElC/’ISMXl»  ISMX2,NXSP»NYSP 
00  TO  (1»4»6)J 
type  2 

FoKMAKIH  »'DT=«»S) 

ACCEPT  3»UT 
FORMAT (F) 

00  TO  b 

type  s 

format i ih  » 'convergence  EPs=*»i) 

ACCEPT  3,tPS2 

oo  to  a 

TYPE  7 

FoRMAKIH  ,  ’RELAXATION  FACTORS  »$) 

ACCEPT  3f ijETA 
CALL  C0NVG2 
return 
E 
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Subroutine  convg2 

COMMON  MESS (7) 

COMMON  KMaX»LMAX»MU,RHOA#DR»DZ 

COMMON  NP,bPX<5G) »bPY ( SO ) # UNOT , VNOT » UlN» VIN 

common  dt  , ned  i t  »  EPS2  »  beta  *  nstop  »  npi t  »  ndump  »  nexp 
common/mouse/inx» INY* InSW»SWSTaT 

C0MM0N/ETC/ISMX1»ISMX2»NXSP»NYSP 
call  uoxes(4) 

CALL  M0VEt0(742,24) 

call  writec •dt=a.aaaaa<>» »dd 

CALL  M0VETO(742»152) 

call  write ( »eps2=a.aaaaa<>» »eps2) 

CALL  MOVE  TO  { 752»  2i30) 

call  write( »beta=a.aaa<>* #beta) 

call  moveto{760»408) 

call  write( »return<>» > 

call  send 

return 

end 


subroutine  cntrl 

common/mouse/inx»iny,insw»swstat 
DO  1  1=1 >6 

call  cntrlki) 
call  wmou^l 

1NY=(INY+120)/128 
IF(INY.0E.7)RETUR|M 
call  CNTRLl(INY) 

UO  TO  2 
RETURN 

end 


vO  (x  ->i  a  cr  -p  o- 
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SUBROUTINE  CNTRLl(J) 

COMMON  MESS(7) 

COMMON  KMAX , LMAX r MU ,  RHOA r  DR r DZ 

COMMON  NP,BPX(50> »BPY(50) t UNOT, VNOT , UlNr VIN 

COMMON  DT ,NEDIT t EPS2 r BETA t NSTOP »NPIT , NOUMP , NEXP 

COMMON/MOySE/INXrlNY* InSW»SWSTaT 

COMMON/ETC/lSMXl t ISMX2»NXSPrNYSP»FNAME 

INTEGER  FNAME 

GO  TO  d»4»6»8r 10» 13) J 

1  type  2 

2  FORMATUH  , ’NO.  OF  CYCLES  BETWEEN  DUMPS=*,$) 
ACCEPT  3»  NUUMP 
GO  TO  16 
FORMA! (I) 
type  5 

FORMATdH  , ’NO.  OF  PRESSURE  ITERATIONS=*  ,  $ ) 
ACCEPT  3,NPIT 
GO  TO  16 

type  7 

FORMATdH  »  *  STOP  AT  CYCLE-’  tS) 

ACCEPT  3*nST0P 
GO  TO  16 

type  9 

FORMATdH  ,  *  NO  •  OF  CYCLES  BETWEEN  EDITS=’,3>) 
ACCEPT  3 » NED IT 
GO  TO  16 

10  TYPE  11 

11  FORMATdH  , ’OUTPUT  FILENAME!  Nil 

ACCEPT  12, FNAME 

12  format ( a5j 
go  TO  16 

13  TYPE  14 

14  FORMATdH  , ’DESCRIPTION! » fS) 

ACCEPT  15, (MESS( I ) , 1=1,7) 

15  FORMAT ( 7A5) 

lb  call  cntrl2 

RETURN 


SUBROUTINE  CNTR1.2 
common  mess<7) 

common  kmax,lmax#mu#rhoa#or»dz 

common  NP,bPX(50) »bpy;bO) #unot,vnot»uin»vin 

common  dt  ,  ued  i  r  #  eps2  »  bet  a  »  nstop  >  npit  »  ndump  »  nexp 

COMMON/MOuSE/INX#  1NY »  InSW#  SWSTaT 

C OMMON/ETC / 1 SMX1 » I SMX2 » NXSP » NYSP » FNAME 

Integer  fname 

Call  BOXEb(7) 

Call  M0VET0(752»24) 

call  write; 'Ndump=aa<>* #ndump) 

CALL  M0VET0(752»152) 

call  writl( *npi t=aa<>» ,npit) 

call  moveto;752»2B0) 

call  write ( * nstop=aaa<> * # nstop) 

CALL  M0VErO(752»408) 

call  write;  *nedj.t=aa<>»  #neuit> 

Call  M0VET0i752,536) 
call  write; »fname=<>» ) 
call  writes ( fname i 
Call  move ro ; 752. 664) 
call  write; 'uescriptiono*  ) 
call  moveto;760»792) 
call  write; »return<>» ) 
call  send 

RETURN 

en 
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SUBROUTINE  CHECK 
COMMON  MESS (7) 

COMMON  KMaX,LMAX,MU,RHoA»DR»DZ 

COMMON  NP»  BPX ( 50) ,BPY(bO) »UNOT, VNOT »UlN, VIN 

COMMON  DT,NEUI1 »EPS2»BETA»NST0P»NPIT»NDUMP»NEXP 

common/mouse/inx» iny» insw»swstat 
C0MM0N/ETC/ISMX1»ISMX2,NXSP»NYSP 
1 1  l=5l2-bPX ( 1 ) *NXSP/DR 

call  moveto(150#iyu 

UO  1  J=2»ISMX1-1 
IX=lbOFbPYl J)*NYSP/DZ 
lT=bl2-BPX( J)*NXSP/DR 
call  ziptu(Ix»iy) 

Iy1=512+BPX( 1) *NXSP/DR 
call  moveto( iso» iyd 

UO  2  J=2»lSMXl’t 
Ia=1S0+BPY(J)*NYSP/DZ 
IY=512+BPX( J)*NXSP/DR 
call  zipto(IX»iy) 

ISM=ISMX1+1 

IX1=1SP+BPY(ISM)*NYSP/UZ 

call  movetoi ixi,512) 

DO  3  J=ISm+1»ISMX2-1 
Ix=150+BPY( J)*NYSP/DZ 
Ir=512hBPX( J)*NXSP/DR 
CALL  ZlPTO(IXflY) 
call  moveto<ixi,512) 

DO  4  J=ISM+1*ISMX2-1 
Ix=150+BPY( J)*NYSP/DZ 
IY=512-BPX{J)*NYSP/DR 

call  zipto(IX»iy) 

I Yb=512-BPX ( 1 ) *NXSP/DR 
I YT=512+BPX( 1) *NXSP/DZ 

Call  send 

CALL  AKO(140»IYT>  *U» ) 

Call  VeCT0(140»S25) 
call  aro(i4o»iyb» *d» ) 
call  vecto(140»499) 

CALL  MOVETO(52»504) 

Cm=BPX(1)*2. 

call  write(*aa.aa  cmo*»cm) 
call  aro(i5o»iyb» »d» ) 
call  vecto(150»512) 

LN0=512-IYB 
IXT=150+L|\|U 
call  aro(ixt»512» *l» ) 

Call  VECTo( 15Q»  S12) 
call  moveto(160>iyb+5> 

Call  writei •«<>• ) 
call  movetouxt+12»504) 

CALL  WHITEC 'Z<>* ) 

ISM1=ISMX1-1 

1YB=512-BPX(ISM1)*NXSP/DR 
I  YT=5I2+BPX ( ISM1 ) ♦NXSP/DR 

call  aro<9B5»iyt»  »u» ) 

Call  V£CTo<965*532) 
call  AK0(ga5»IYB»  »D» ) 
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Call  VECTo(9b5*492) 

Call  MO VET 0(955 *522) 

Cm=BPa(I5m1)*2. 

call  writei *aa.aa<>* ,cm) 

call  movetO(973*503) 

call  write ( *cm<>» > 

lYl=IYT+20 

call  ako(95o?iyi* *l* ) 
call  vecto(600*iyd 
call  aro(i50*iyi* »r* ) 

Call  VECTO(50Q*IY1) 
C,vi=BPY(ISmX1)*2. 

lYl=I Yl-b 

call  moveto(504*iyu 
call  WRITE(*AA.AA  cmo •  *  CM ) 

IXl=BPr ( IbM)*NXSP/OZ+300 
call  movetO(Ixi,517) 
call  vec(-60*0) 

CALL  VEC (0*10) 

call  vec<-2o*-i5) 
call  vec(20*-15) 
call  vec(o*io> 
call  vEC(bn*o> 

CALL  MOVE ( 5* “3 ) 

call  writei »flow<>» ) 

call  moveto(34b*124) 

call  write*  'U-insaaaa.aao*  ,uin) 

call  movetO(34u,164) 

call  wkite( ’V-iimzaaaa.aao* *vin) 

CALL  M0VET0(515*124) 

call  write ( ,u-not=aaaa. aa<>» r unot > 
call  moveto(515*164) 
call  write( » v-not=aaaa.aa<>* * vnod 
call  moveto(412*9oo) 

00  5  J=l,7 

call  writeS(Mess( j) ) 

call  apnd 

return 

EimD 
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subroutine  outp 
Common  mess (7) 

COMMON  KMaX,LMAX»MU#RHOA#DR»DZ 
Common  NP,BPX<50>  »BPY<50) »UNOT,VNOT,UlN,VIN 
COMMON  DT »NEDIT t EPS2 » BETA »  NSTOP » NP I T » NDUMP r NEXP 
COMMON/ MOUSE/ 1 NX » INY> INSW»  SWSTAT 
C0MM0N/ETC/ISMX1»ISMX2»NXSP»NYSP»FNAME 
DIMENSION  IDT C 2) 

REAL  MU 

integer  fname 
Call  OF ILe ( 23 » FNAME ) 

TYPE  1 

format ( ih  , 'linefeed  to  new  page»cR'> 

ACCEPT  2 » DUMMY 
format  <  ai > 
call  dateudT) 

TYPE  3 

format ( in  »T37» »abmac' ) 
type  4 

FORMATdH  »T35, 'UNIVERSITY  OF  UTAH') 

type  ss# idtcd »idt<2) 

FORMATdH  ,T35»A5,A4) 

type  6 

FORMAT (1H-) 

TYPE  7, (MESS(I) »I=1»7) 

FORMATdH  r 7A5) 

WRITE <23, 7) (MESSII) ,I=1»7> 

MoPT=0 

type  b,kmax,lmax,nexp»mopt 

FORMATdH  ,  41 ) 

WRlTE(23»8>KMAX,LMAX»NEXPrM0PT 

SMIN=.01 

LPS1=.2 

TYPE  9, SMlN»EPSl 
FORMATdH  ,  2F ) 

WRITE(23»9) SM IN, EPS l 
GZ=0, 

GR=0. 

type  io,gz»gr»mu,rhoa 

FORMATdH  ,4F) 

write 1 23 » io ) gz, gr,mu,rhoa 
type  u,dk 

FORMATdH  »F) 

WRITE ( 23, ll } DR 
TT PE  11, DZ 
WRI TE ( 23, ll } DZ 
KA=2 

kb=kmax-i 

LA=2 

Lb=LMAX-l 

Type  l2,Np»KA,KB»LA ,LB 
FORMATdH  ,51) 

WrITE(23» 12)NP»KA»KB,LA*LB 

izero=o 

zero=o. 

SMALL=-O.OOCt 

ISM=ISMX1-1 


type  13#zeko»zero 
WRITE(23»13)ZER0>ZER0 
FORMAT (1H  »2F) 

DO  14  J=1,ISMX2 

type  i3,apx<j) ,bpy<j) 

WRITE  (23»  13)  BPX(J)  ,BPYlJ) 
type  15,izlro 
format (ih  ,n 

WRlTE(23»lb) IZERO 

KA=1 

Kb=KMAX 

LA=1 

lb=lmax 

kiim=o 

KOUT=0 

Tf PE  lb»KA»KB»LA»U3»UN0T,VN0T»KlN»K0UT 
FORMAT (1H  ,4l»2F»2I) 

WRlTE(23»lb)KA,KB»LA#Lb#UNOT»VI\lOT»KIN»KOUT 

KA=2 

Kb=BPX(l)/UR+2 

LA=1 

Lb-1 

KOUT=l 

type  lb »  ka  »  kb  >  la . lb ,  unot  ,  vnot  ,  k  i  n  *  kout 
WRITE  (  23 » lb)KA»KB»LA»LB»UNOT #  vnot »kin,kout 
KA-2 

kb=kmax-i 

la=lmax 

LB-  LMAX 

VVLL=VIN 

UVEL=UlN 

KoUTzO 

KINrl 

type  ib»  ka#kb»la»lb»uvel,  vvel,  kin,  kout 

WRITE(23»16)KA»KB»LA»LB»UVEL»VVEL»  KIN, KOUT 
type  15,izlro 
WRITE (23»15) 1ZERO 
NBP=2*(KMAX-2) 

XXA=.05 

YYA=UZ*(LMAX-2)+.05 

0uK=DR/2 

UB4=0. 

TYPE  17»NbP,XXA,YYA,DDR»0UZ 

format ( ih  ,i»4F) 

write (23»i7) nbp»  xxa, yya»ddr»  ddz 

type  9, bpx ( 1 ) » SMALL 

write l 23,9) BPX (1) » SMALL 

DO  10  1=2, ISMX1-2 

TYPE  9,BPX(I) »BPY(I) 

WRITE(23»9)BPX(I) ,BPY(I) 

ITW0=2 

TYPE  19»  BPX (ISM) , OPY  < ISM5 » I  TWO 
FORMAT ( IH  » 2F » I ) 

WRIT£(23,19)BPX(ISM) ,BPY(ISM) , ITWO 
I0NE=1 

ISM2=ISMXl+2 

1SM=ISMX2-1 
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BPX ( I SM2 ) =SMALL 
DO  20  I=ISM2»ISMX2-2 
TYPE  9,BPX(Ii*BPY(I) 

20  WRITE(23*9)BPX(I) *BPYtI) 

type  19*bpx(ISM)  *bpy(Ism)  »  ione 

white (23*  19)BPX( ISM) *BPY( ISM) * IONE 

ICRT=1 

CrTRA=3.2 

CRTR8=ft. 

CRT2A=16. 

CRTZti=.2805 

XMAX=.2885 

YMAX=.9 

type  21, icrt*crtra,crtrb,crtza*crtzb»xmax* ymax 

21  FORMAT ( 1H  *I*6F) 

WRITE  (23* 21  )ICRT*CRTRA,CRTRB*CRTZA*CRUB.XMAX,  YMAX 

type  11, dt 

WRITE ( 23* 11 ) DT 

type  is*nedit 

WRITE ( 23* 15)NE0IT 

type  ii*epsi 

WR 1 TE  ( 23*  1DEPS1 
Type  ii,epS2 
WRITE (23* 11JEPS2 

type  11, beta 

WRITE ( 23* ll )BETA 
NoEN=«N* 

Type  22.N0EN 

22  Format ( ih  ,ad 

WR I TE ( 23 . 22 ) NGEN 

type  ii.smin 

WRl TE (23*11) SMI N 
TYPE  15»NST0P 
write (23* isjnstop 
type  is*npit 

WRITE ( 23. 15) NP IT 

type  is.nuump 

WRITE (23* l5)NDUMP 
end  file  23 
RETURN 

end 


SuoROUTINfc  ARO(iNX#INY,OlR) 

Integer  dir 

Nl=5 

N2=15 

IF  (  DIR.EU.  V.t* )  INY  =  INY-t5 
IKCOIK.EQ. 'D'l  INY=1NY+15 
IF(DIR.EQ.*L’)INX=INX-15 
lF(0IR.EU.*R*)INX=INX+i5 

call  moveto<inx,iny) 

IF ( DIR, EG, *  Rf .OR.UlR.Eu. «u» )N2=-N2 

1F(DIR.EU. »U’ .OR.DiR.Eu. *D» ) GO  TO  1 

call  vec<o*njd 

call  vec<nz»-ni) 

call  vec<-n2*-nd 

call  vec<o»nd 

Call  apnd 

RETURN 

call  vec<-n.i»Q) 
call  vec(ni»-N2) 
call  vec(ni»N2) 
call  vec(-ni»o> 
call  apnd 

RETURN 


subroutine  boxesom) 
do  1  1=1  *  N 
JP0S=(I*128)-128 
call  moveto<704, jpos) 
call  box 

RETURN 

END 


. . . ^  . - -.. . . , 


subroutine  box 

CALL  VEC(0#64) 
Call  VEC ( 192*  0 ) 
call  vec<o#-64) 
call  \zec(-.192»0) 
return 
end 


isf 


APPENDIX  II 


THE  COMPUTATION  INITIALIZATION  PROGRAM 


Routine  Name 


Function 


MACMAIN 


REFLAG 


Establish  common  areas 

Control  initialization,  writes 
out  data  file 

Marks  cells  and  initializes 

Computes  normals  describing 
boundary  segments 

Readjusts  cell  flags  in  surface 

Lists  initial  values  for  all 
problem  variables 
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COMMON  NVaC,NoILi**UAC#  vaC,  r.^il  9  Ti»l2 »  I  M3 
COMMON  NC  VCLE , Nbl oP* NtuTM  *  NED  I  JNOPt 
COMMon  1  ImL»E.DT1M,EDL>T,NPIt 
C OmMOh  '.<*■-  I'm *EPb2»L)T,  VMA X , Ui<iA X » hELAX ,  C  U  I 
C  OMUl  w  SM  1  w *  EPS1 » NtsM A X ,  l  JD  T  O  •  Vt>  1 0 , U ^Nb  .  V  Br-lO 
COMMON  Ort,t.U*M»OA,liR*b*>u»  1SEC 
C oMMOi'i  VIn #  UlN » IJKP  ,  QLP ,  NflP ,  DDK ,  DOZ 
C oMMON  WE XP *  NE  XPP *  NP AK  T  » ND I V 
C OMMO1J  No*  1 D  *  KMmX  *  LMaX  ,  KMAxZ  *  LMAXZ  ,  KM*\A7Z *  LMAXZZ 
LoKMON  KL/MN  *  LOmN  *  KDMX  *  lDMA  *  ME3S  (  7) 

COMMON  ICp  I .  AM  A  A  ,  f  MAX ,  CKTRa  *  CKTRo *  CRT/A  , Cl<TZo 
COMHu.-i  ITLbT *  IZ.GAi.iA.PoAStPGAS^rlMliBtuASVrOASvZ 
COMMON  Nb  ,nlit  NI  ( *  H,  XG,|-|H,  HV  ,  GG*FuboL»ilTAL»CRAX,  DELZ 
CoMK'ii  UPxl3l»0)  fPTX(390) »KmP(300)  »i<NP (  30C ) , XO ( 300 ) 
CgmMoN  ijPT«300)  »PTY(3Qe>  *ZmP(3CC)  »<.NP(30(>).Yl3<30G) 
ComMuI.  ub(3P0)  »1l3P(300) 

Common  k ( ion)  *z<  iso  ,i<u(  ibc ) » za < iso) 

COMMON  OKb ( IbC ) * LZu ( ibO ) 

CoMi*  Cn  M(2bP0) 

CoMMOim  RPK5000)  »RP2(i>C0P) 

COMMON  UAYO(2bOC)  ,  VAVbt?500> 

COMMOi,  Pl^bOO)  ,0(2500)  ,  E  T  A  (  2b3j)  *  \J  (2b jo) * Pol  (2500) 
COMMON  0Nwi<X(?b;0)  *  Dl'JOKY  (2b0?) *  PnokX  ( 2502 )  *PN0l<Y(25Ct) 
CbMPON  NP«1  M2bvC)  *  MPK  Til  ( 2b0*' )  , MpRTA (25Q0)  r  MPKTB  ( 25CC ) 
C  uMMUM  bNC  i  2b  00 )  ,  LK  * L'X 
COMMON  NbC ( 300 ) * IP  X  ( 3J0) 

COMMON  Mui.V.l#Nut.V2 
C ON  M( »i  i/  b  i_aOA /FLxGi 
PeaL  K’J 

In  Tt.Ouk  A i  <0  *  On *  CN  i i\3  * OUP  >  FuLL  *  tMP  t  uNu * IN*  OUT  t 

*  F  KbLP»i,0Si.P»LMPbND*0l3»COKfOK»OAS»  AuO 
OaTA  UiTKi-  #CNlRb»bUR»FuLLrEMP*dNiJ*  I,I»oOT, 

*  P  kSLF  *  NOSlP  *  LMPbNO  *  Ob  t  COR  *  OK ,  6AS  *  At<b/  i  »?*4*e»lb#32* 

*  uu  *  12b, 25u» 5 12*1 024 *2D<+P *409^*3192*  16 J04*  32708/ 

0  A 1  A  i*i ASK  l ,  MASK2 1 MASKO ,  MASi\4  *  MASKb»  MASK 6 , 

*  MAbK7*hASx6/07777777777b7* 07^7777773777  * 

+  0777777677777* o777777777773f 0777777 777767. 

*  0/7777/737  777 » 0777777737777*0777777767777/ 

OoUBLE  PRtCISlON  0,V,PbI*ETA»P 

OJObuE  PRECISION  0MAX,vMaa 
F  1  =  3. 1a1Ssi26 
INIEOLP  Fi.AO’. 

P  L/'Gl  =  l 

call 

two 

booCCul  li-it  MAOMAlli 

CoMMOi*  NVmC*NoLN»UAC,VaC,TM1»T,j|2*  Iii3 
C OMMCn  NC  y C LE » Nb TOP ,  NE.o T |  ,ED I  T  *  OPE 
COMMON  TImE.KUI lM.tDDT.NPI | 
common  oeta  , EPb2» ut , vmax , u,.iax , uelaa , cu i 
Common  bMiN»F.Pbl,Ni<MMA,'JriTj, VBTO*UuNO* Vt?Nu 

Common  um,>iu»kmoa»gr#o/*o,  isfc 

C  OmMOi'i  V 1  u ,  ux N » uKP  f  9LP ,  N3P  *  DDK ,  Doa 
COmMCa  J  NE  aP  *  NE XPP  » i^P AK  I  ,NU1V 

OoMMOiM  Noxlu  »  KMAX  *  LMAX  *  KMAXZ  »LMA  Ai  *  KM  A  a?Z  *  Lf  IAaZZ 
Common  KOMi>l*LuMN.KUMX,Lr)MX,MF.Sb(  7) 

CoMMOi  ICR  I  ,  XMAX  *  YMAX » CR  FKA  *  CP.  f  Rl.  *  CKTZA ,  CKTZO 


COMMON 

CtiMMOu 

COMMON 

CoMMCN 


CoMMOn  IIlST  1 10*.  1 I*.  t  GA|.;A , PgAS»  PG/\S*.  ,  P'\MB , GASV » oAS  vZ 
ComMON  NF  , NG  ,  NIT  ,  H»  XG  ,  hH»  H  V  t  GG  , FuGoE  r  N  T  AL»  CKAa  » DEuZ 
Common  3»-  a(300)  »  PTX  (  GCO ) » RMP  (  3o  3 )  •  Ki*JP  ( 300 )  »Xb(3G0> 
COMMON  bPY ( 300)  ,Pi Y(3C0)  ,  Zi</|P  ( 393)  » ZNP  ( 300  )  »  Yd  (  300 ) 
Common  l)S(300) . itipnoo) 

Common  R(.ibO)  » Zl  ISO)  ,f<d(  150)  »ZuU5G> 

COMMON  DRb( IbO) »UZd( ibO) 

ComMOn  M(2bP0) 

Common  RPj.  (5000)  »RP2(b000) 
common  uavu( 2(500)  avgi?.5Do) 

Common  p(Rbf?0)  »0(2oOO)  ,ETA(2S9.;*)  »  V  (25-jO)  »PSI  (2b00) 
CtiMMOn  1)IMOKX(2SCO)  »ONO|<Y(2b00)  ,  PnOkX  ( dbOC )  » PfJOKY ( 250n  ) 
COMMON  NFrTA ( 2600) » NPR  f B ( 2600) ,MPRlAUbOO> » MPKTB ( 2b00 ) 
Common  SNC (2b00) »DR»OZ 
common  nuc (300) , ipx(33o) 

Common  Nuev.i.»Nuev2 
CoMMON/FLaC 1/FLAG1 
Kh/'.L.  Mu 

i  nTE0Ci%  Ai  iU  ,  Oh  ,  CN1  HR »  ^UP  »  POLL  t  EMP  i  jNO  , IN,  OOT  t 
F  RSt.P  » NOSlP  t  EMPtiNU »  Ob  *  COR  t  OK  r  GAS  t  Ai<u 
u  A  I  A  1 nTUr  , CNfRb » bUR  , F UCL  r EMP » uNL) »  X  N » OOT t 
h  RSl.P  • !  IOS,_P  ,  £HPl.NU  ,  Ob  *  COR  t  OK  ,  GAS  ,  ARM/ 1 »  2 r  4 » U»  10  t  32 , 
l>4»  J2o,2bt>,  512 » 1024, 204® » 4096 »G192»  16304, 327D8/ 

U  A 1  A  MaSK  1 1  MASi\2  *  MASK  3  *  MASK4 ,  MASi\b  f  MASl\6 , 
MhSK7*MASNb/07777777777S7»O777777773777r 
o 777777677777 » 0777777777773 r 0777777777767 r 
O/'77777737777»07777777b7777»  0777777767777/ 

DOUBLE  PRECISION  U» V » Pbl »ET A r P 
DOUBLE  PRECISION  UK ,  UL  ,  VB  ,  vT r  UbAK ,  VbAR 
uuUbLE  PRECISION  OT0P»  vLEF T  ,  VF-GHT 
uOOBLE  PRECISION  TEMPL , TEMPR r UdOT 
DOUBLE  PRECISION  UMAXfvMAX 


uuUbLE  PRECISION  OTOP »  VLEF  T  r  VF.( 
uOOBLE  PRECISION  TEMPL, TEMPR »Ut 
DOUBLE  PRECISION  UMAXfvMAX 
PI=3, 1415926 
K’l  AL-0 

It  HE  2 

FORMA! tlH  ,'NErt  GENEF.A  I  OR?  *  r  3> ) 
ACCEPT  4 » UlXE 
FORMAT (I ) 

F  ORMA  V  (A3.) 

IF  (i-JiXL.Eu,  »N»  )  GU  TO  7 
Vi  PE  b 

FORMAT  (IF)  , 'INPUT  FPOM:»»i) 
’AcCli  f  6»KUEV1 

Forma i ( ajj 

IF  (Njc.Vl.Eu.’TTY’  )  M0Evl=b 
IF  (NuEVt.EL.  'ubi\»  )  NDEVl=2i 
IF  (NuEv'l.L0.2i)00  TO  oOl 
00  TO  60b 


F  uP.MA  I  ( lh  ,  'INPUT 

ACCEPT  oOb'NME 

format uS) 

NML=i  IME  F3? 

CauE  IF ILl l 2l » NmE ) 

call  gem 
NLIJ  T  n-0 

Nl.imt=p 


FILE;  M) 
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U._,MPT -J 

Opb.sl. 

oo  ro  11 

7  »YPL'  {.’  ,  NC  YClF- 

tt  FORMA  I  (lbl  ,  *  HEADY  AT  CiCLE  ’rl3> 

1  H'Z  9 

y  huKMAKJH  ,  •  CHANGE  RUN  TIME  SYSTEMS*) 

ALUb.PT  .10 » MYb 
IP  b URMAT ( A 1 ) 

IF  (NY5.EG.  * M*  )  GO  TO  33 
lMjtv'1-I) 

11  Type  12 

12  bOKMAl  (in  ,  ’01  =  ’  ,i) 

KlAD  (  Nl'FV  1  »  !3)  Of 

1  rPF:  24 

13  FORMAT (F) 
l rut  14 

14  FORMAT  (lit  »»M0.  Of  CYClES  oETrffcElT  EDIl5=*,i) 

RcAE  (NoEv  ir  1.5)I\IEU1  f 

TrPt.  24 

io  format  a ) 

lYPti  16 

lo  b  ORMA  I  ( IH  » ’BOUNDARY  bLNblNG  PaRAME  TEK=  *  r  4 ) 

KlmC(wuLV  1,1.3)  LPb.1. 

Type  24 
type.  17 

17  FORVIaKlH  , ’CONVERGENCE  EPlJEONS*  f!b) 

RLAU(NoE:v'1,  1.0)  EP52 
1  rPE  24 
Tii-E  10 

16  FOKMiUtlH  r  •UVEK-RELaXaTIO.I  FACTORS’ fl) 

RtA  J  (  NuLVi ,  1.3 '  L>ET  A 
TiPf;  ?4 
TYPE  19 

19  FORMAT  (.in  ,  ’omCKWaRDS  UlFFt-RFiJClNGF’  ) 

Rh.AU  l  T'iuE.V  1 »  20)  NGb.N 

1 YPF  24 

lb (NOEM.EU. »V» )  NGEN=G 
lb  (MGEiM.Lo.  ’N»  )  NGEN=X 
di'  bORM/\»(Al) 

lYPb.  ?\ 

21  b oKMA  I  (  In  ,’FULL  CELL  L'PSlLOfls’  ,%) 

RLAUlNuEVi,  1.3)  bMIN 

I Y  PE  24 

type  22 

22  FORMAT ilH  , ’ST OP  AT  CYCLE-’r*) 

KLAD(NutVlr.l5)  NET  OP 

TYPE  24 

20  CoNTiNUE 

24  f  orma  r ( 1H  ) 

T  r  PE  25 

25  FORMAT  (1H  ,’PKLbbURE  IfERA  TIOHS=’  ,  'b) 

RlaU(NuEV1,  1.5)  NP1T 

TYPE  24 
TYPE  26 

2o  format  an  »*no.  of  cycles  uet«vlem  oumps=*,i) 

RlADIMl/EVi,  1.5)  NL'UMP 
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lfFE  24 
KV/\XZ=kMaa-1 
L.«AXZ=LMAa-1 
k  »iAXZZ-KM/*a-2 
L\iAA22.=LMaA-2 
NgR  1 U-kMA  X+LMAX 

0rMAA=GR**2*UZ**2/lDR**2+DZ**2) 

UT“iAX= .  4*0  TMAX/  ( MU+ ,  000001 )  *RHOA 
D  ;  - .  r.»  ( DT+U  VMAX )  - .  b*Aftb  (  DT-DTi4AX ) 
d  imaa=ov 

Rr.L  AX- .  2*RI  IOA*L)R*+2/DT 
NbuR-2 
TF  /=.2b 
T o-2 .  P 
F  v  =  .S 

IF  (G>  2b, 2ttr. 29 
2o  Cp.AX-KhOA 

GO  TO  30 

29  Cp.AX=G*Z(i.MAX) 

ChmX-1 . /CrAX 
3P  Gg=G 

IF  il'UXc.,Lo.  »N* )  GO  TO  j3 
Call  EoiT 

32  CuhTINUE 

33  CONTINUE 
I.ME -NME+2 

Call  OF  ILL ( 22 » NMD 
V.R1TL(22)imGEM 

I.K  I TL  (  22 )  NC  YCLfcl , NSTOP , NEOTM ,  NED  I T  ,  OPE 

.ml  It  (22)1  ImE  »  EDTIM, EuDT  ,  HP  IT 

«KlTE(22)bETA,EPb2,DT, VmAa, UMAX, RELAX, CUT 

*.l< I TE  ( 22 ) bMIN , EPS1 ,  NdMAX,  UdTO ,  VaTO > UfcjND ,  VRND 

Wl< 1 TL ( 22 ) UM  ,  MO ,  KmO A  , GN , GZ , G , I SEC 

»K IT  E ( 22 ) V  IN, UIN, DKP , ULP »  NBP , DDR , DDZ 

wi<  1  I  L  (  22 )  IMEXP , MEXPP ,  NRART  ,  NO  I  \l 

rtR  1 1 E  (  22 )  NGRID  ,  KMAX , LMAX »  nMAXZ , LMAXZ , KMAXZZ  ,  LMAXZZ 
»il<i  TE  ( 22 )  inDMN ,  LUMN ,  KDMX ,  LQMX  ,  MEbb 
ARI1L  (2.2)  iCRT»XMAX»YMAX»CRTRA»CRIRb»CKrZA»CRTZlj 
».KII  E  (22)  iTEST  , 10  Z ,  l4,GAMA,PGAS,PGASZfPAivlLi,GMSV,oAS\// 
f  R 1 7 E ( 22 ) NF » No » Nl F , H »  XG , HN » MV » GG , F  UDOE  , NT AL, CK AX, DELZ 
hK  ITt  t  22 )  R  ,  Lt  Rb  ,  ZB 
<<i<l  TE  t  22)  ORBnJZb 
..KITE  ( 22)  M 

wKiTE(22)P,U,ETA,V,PbI 

I  I  E  (  22 )  DNGRX  ,  DnORY , PMORX  ,  PiNORY 
IM<I  TE  ( 22 )  oR  ,  UZ 
t  Nb  F ILE  22 
Ut.  ft'i  14 

end 


-PC ■  i\.  H 
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SjbFT.u  f  INiL  GEN 

COMMON  NV  AC  *  NGEN * OAC *  VaC  ,  TmI  * 1  M2 *  TM3 

Common  ric  r c le  ,  n jTop *  neutm *  ned i  t  *  ope 

CuMMON  T 1  i-it_ ,  EO  I  IM,  EDDT ,  NPIT 

Common  uE im * EPS2 * uT * VMaX  , UnAX , RELAX , CUT 

Common  StoiN ,  EPS! * NBMAX ,  U3  l'O * VuT  0 * UbND ,  VBNl) 

Common  um * mu * KnoA * gr * Gz * g * 1  sec 
COMMON  V  In*  UlN, UKP *  DLP*  NbP, DDK  *  QuZ 

common  nexP,mexpp,npakt  *noiv 

Common  NGk  ’  *  r.MAX  *  LMAX,  KMAXZ ,  LMAXZ  *  KMAXZZ  *  LMAXzZ 
ComMOi  4  KDr.lv ,  LUMN  *  KOMX  *  LCMX ,  MESS  (  7 ) 

Common  icrt  *  a.maa*  ymax  *  crtka  *  Cktro  *  lr  tza  *  cktzb 

common  II t!ET *  IOZ*  IZ*GAMA,PGAS*PGASZ*PAMB*GASV*GASwZ 
C  oMMON  NF  *  NG  *  Ni.  T  *  t  i  *  XG  *  HH  *  H  v  *  GG  *  FUDGE  *  N I AL  *  CRAX  *  DElZ 
COMMo.  i  L*Pa1300)  *  P 1  X  {  300 )  ,K.vjP(30©)  *  KivlP  (  50C. )  *  XB  (  300 ) 
Common  BF  Y  (300)  ,P1Y(3©0)  *ZmP(30Q)  *4NP(30C)  ,YB(300) 
Common  LS  (  oO'J )  *  IBP  (  390) 

common  kudo  *z<  150 j  ,kd( ido) * Zb(  iso 
Common  OKb  (150)  *DZB(  150) 
common  m ( 2  5  00 ) 

COMMON  RPK5000)  * KP2  (  bOOO  ) 

Common  uavo(2D00) *  vavg(2500) 

common  p(2D°o)  ,u(2300)  »eta(250 0)  *v(2 5oo>  *psK2500> 
Common  DhoKX(  2bOO )  *ONORY(2bOO)  *PNoi<X(2500)  *PN0RY(25Cn) 
C  ommon  NPrTA(250C)  *  NPR'I'B  (  2500 )  ,MPRTA(2500)  *MPRTB(2500) 
common  snc ( 2S00) *ur*oz 
Common  ndc ( 3 0 0 > * ihx(300) 

ComMCn  NUt  v  \  *  NUF.V2 
CoMMOil/F  LAG  1  /FLAG! 

RL Al  Moi 

Integer  and  *  or  *cntkb  *  sur  *full*  emp  *  ond* in*  out  * 

+  FRSLP *  NOSlP » EMPBNO » Ob  *  COR  *  OK  *  gas*  akb 

LATA  1  r.  TRFfCNTRb* EUR, FULL fEMP,bNO* IN* OUT* 

*  F  KSLP *  nOSu’  *  EMPbND  *  Ob  *  COR  *  OK  »GAS  *  AKD/1 *2,4*0*16*32* 

*  ou  *  12b,  25t,*  512 *  1C24*204&*4096*  0192 *  16304,  32768/ 

DA  I A  MaSKI *  MASK2*  MASK 3, MaSk4»  MASK5 *  MASK6  * 

*  MASK? *  mASkU/0777777777757  *  0777777773777  * 

*  0/77777677777*0777777777773*0777777777767* 

*  0/77777737777*0777777757777*0777777767777/ 

Double  precision  gmaxumax 

DoURLl  PRECISION  D, V , Pbl *  ETA*  P 

F’1l3. 1415926 

logical.  test 

Pl=3. 1415926 

'IYPE  1P01 

TrPE  1C 00 

IP 0.1  FoRMaT(IF)  , ’HEADING') 

RlADInDEVi*  i.  )  (,v|ESS(  I )  » 1  =  1*7) 

format  <7A5) 
forma  U4I ) 

F  oKMA  T ( 2F ) 

F  OKMA 1  ( 4K ) 

type  1002 

IYPE  iP09 

1002  F0KMa1(1H  *  *  UMAX  * LMAX, nEXP, MOP  f ) 

KlaD  ( :  IDE V 1 , 2 ) KM AX , LMAX , ME AP , MOPT 
TYPE  1003 
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type  ip 09 

100.5  FuKMA  r  1 1H  ,  •SM1N»EPS1»  ) 

READ ( NuEVl *  3) SMIN»  EPS1 
TYPE  1004 
TYPE  1009 

10  04  FORMA  run  t  •GZfGKtMUfRNOA*  ) 

H tAD l NbE V 1 » 4 ) GZ  t OK » MU  #  KHOA 
G=SGRT(GZ**2+GR**2) 

Ufc.APP=iiEXp+l 

Kmj,XZ-KMA/-1 

KMAXZZ=KMAX-2 

LMAXZ=LMAX-l 

LMAXxZ=LMaX“2 

UCYCLc=0 

1 iME=G , 

KUV  =  0 

cuT=.or.oPcfvi 

Um=MU 

NgKIU=KMAa*LMAX 
iyPE  in  os 

C  GENERATE  COORDINATES*  aNO  CONSTANTS 

C 

10f*t>  FORMA  HIM  r  *  L'K *  ) 

RtADiUuF.Vl,5)0R 
TYPE  1006 
TYPE  1009 

1 0 0 6  FORMAT (lh  f'UZ') 

KE/>U  ( NUEV  1 1  5 )  UZ 

6  format  if) 

Hti(  A  )  =  l./l".  0**lu 

UO  6  K=.1»KMAXZ 
G  I'U  »  K  +  l )  =l<0  (K)  +uR 

4-d(i)=r. 

UO  7  L=1»LI1AAZ 

7  Zd5L+l)=ZtilL)+UZ 
RlD  - -  .b*RL>(2) 
t(.l)=-.S*Zu(2) 

UO  6  K=2#KMaX 

ti  R(K)=(RO(K)+Rb(K-l) )*0.5 

UO  9  L=2»lMAX 

y  Z(L)  =  (Zb(L)+Zt)(L-l)  )*0.S 

UO  10  K-l > KMAXZ 

10  LiKuth  )sRIk  +  1)~R(K) 

UO  11  L=1,LMAXZ 

11  Uxb(L)=Z(L+l)-Z(L) 

UO  .12  K=1,MGKIU 
Pu\)-0. 

U(K)rO. 

V(K)-0. 

E'ia(K)=0. 

PSA (K)-0. 

UavO(K)=Q. 

WWGIK)  =0. 

M  l  K  )  -  0 

i:nor>;ik>=o. 

UnUKY IK)=U. 

PNORX(K)=0. 
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12  h»OHY(k)=0. 

UbND-P. 

VuND-C , 

uO  13  l=2,LMA  X2 
Ki-ii-l—  (  l.-  1 )  *k MAX 

DO  13  K=2i KMmXZ 
l*M=K  t  KMM 

13  M(  kM)  =  (  M  ( KM )  .  OR  .  ) 

C  Rc.mD  lu  A  SET  OF-  POlNfb  SPECIFYING  A  CLOSED  CURVE »  LYING 

C  In  I  rlE  PEblON  BOUNDED  l.Y  KA» Kb , LA » LB .  F'Ak  f 1CLLS  ARE 

C  GEwERAI ED  AT  DENSITY  Np**2  INSiDE  THIS  AREA.  ANY  NUMBER 

C  OF  CLOSED  i.  EG  IONS  ALLOWED. 

C 

NrO 

T  i  PE  If* 07 
i ypl  lens 

lf'07  FukMAMlh  t  *MP»KA»KH»La*LB*  ) 

14  KEaD  (  NoEV  1 ,  is )  MF  »  KA »  KB  » LA  » |_B 

lb  F uKMAT i 31 ) 

IF  (HP)  3.1 , 3.1.  r  16 
10  TiPE  inOO 

ipob  format  an  » *bPx»tipr  ’ ) 

TrPE  ,lr09 

iro«j  Forma f (IN  ) 

READ  (  ndE v  i  » i.7 )  bPX  U ) ,  BPY  ( 1 ) 

1/  FORMAT l 2F) 

MM~2 

lb  READ  (NDEVi » 17) OPX(MM)  ruPY  (uM) 

IF  (bPX(l)  .EG.oPX(MM)  .AmD.DPY(I)  .E'oUBPY(MM)  )  GO  TO  21 

19 

GO  TO  JO 

21  MMAX=MR-J. 

DKP=JR/NP 

Dt.P=UE/NF 

Lo  26  L=La  »  Lb 

KWi-  (  L.-1 )  *t\MAX 
00  2 6  K=i\h  »Kb 
KM=I'.  IisNM 

RA=Rd  (K-.1.  )-r.S*DKP 
XA  =  Zb  (i_-l  )-C.5*0Lp 
DO  20  LP-1 »  HP 
2-c-2  A+oLP*LP 
DC  20  *P=l,NP 
KR=RA+okP*KP 
AN0LE=P . 

Do  2u  u-1  *  ivlAX 

AJ.=BPX(D)-KR 

a?.=BPa(  J+l)-RK 

rjzBPV (o)-2Z 

Y2=DFM  ( JFD-Z2 

CkOSSP=.X1*Y2“X2*Y1 

F  MAG-  (  a1**2+Y1*1(2)  ♦  (  X2*  *'2Py2**2) 

F  mAG=SuRT  (FMAG) 
aLPHA=AS1n ( CRoSSP/FMAO ) 

D0T=a1*X2+Y1*Y2 
IF (Du  I )22,2br2b 

22  IF (ALPHA)  23* 24 » 24 
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25  AliuLE:=ANGLt-Pl-MLHHA 

GO  TO  26 

24  AMGLE=ANGLE+PI-ALPHA 
00  10  2d 

25  AuGLE= ANGLE +ALPHA 

2b  CONTINUE 

IF < AdS i ANoLE) -0.0001) 28.27,27 
27  NsNtl 

IIPKTA(KM)=NPRTA(KM)tl 
h<i\M)  =  (M(KI'l)  .OR. FULL) 

M ( KM ) = (M ( KM ) . AND . MASK 1 ) 

Kp  KNURR 
Ri  2  ( N )  —  2  2 

2o  continue 

KulV-N 
NPAfO  =i  i 
00  TO  1A 

m  continue 

C  Ii.PUT  CELu  VECLOC 1  TIES ,  KIN=0»KOUT=0  FOR  INTERIOR  CELLS. 

C  F  oR  iNFLOft ,  SET  K1N=1»  FOR  OUTFLOW  SET  K0UT=1. 

C 

62  I'rlE  HUn 

T  t  RE  IP 09 

min  Format (in  ,  'ka,ko,la»l.,j*u\/el,  vvel,mn,i\oui  • ) 

read {  nue  m x , 36 ) ka  , kb  »  la , lb  » oVEL , wel  ,  k i n , kuut 
06  format  1 41, 2F»  2D 

IF (KA)  3B , 50  *  64 
04  00  3  I  L-L/\ ,  Lu 

KMM=(L-1)*KMAX 
dO  37  K=K/\,Kb 
MiK+KMM 
U(KM)=UVEL 
V(KM)=VVEl 

IF (K1N.EO.O)  00  lu  35 
U1N=UVEL 
V  i  i  'i  —  v  V  L  L 

65  M(KM)=(M(kM) .UR. (MN*o4> ) 

M(KM)=(M(KM) .OR. (K0UT*128) ) 

67  CONTINUE 

00  TO  62 

C  SPECIFY  a  line  of  input  particles  lying  oust  outsiof: 

c  inpui  boundary.  ndP=  number  of  particles,  xxa  and 

C  YYA  ARE  Tilt  COORDINATES  OF  THE  FIRST  POINT.  DoR  AwD 

C  Du/  GIVE  THE  SPACING. 

C 

3b  TrPE  1PU 

1 1  PE  1009 

mn  F uKMAT  (1H  ,  •NBP,XXA,YYA»UDR,ODZ,  ) 

RtAD(NDEVl,39)NbP,XXrt, tYA»0DR,DD2 

39  FORMA l (1,4F) 

IF ( NbP ) 43, 43 » 40 

40  Mm-MEP+1 
NPART=f  iPArT +NdP 
DO  41  N=ImPART,MM,-1 
RPl(N)=RPl(N-Nt)P) 

KP«(N)=RP2(N-NBP) 

RFU ( 1 )=XXa 


41 
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r.KM  J  )=YYA 
KitXXAiUK J/DK+l 
Lz  (  YYAiUi. )  /DE+1 
KM-K t 1L-1)*KMAa 
ftdUDzKM 

fiF’KTA  l  mvI  )  z.  IF'K  I  A  (  Kt  i )  4-i 
uO  4J?  I-i=2»n*3P 
XaA=XXA+L'l>I< 

1  KAzYYa+Dlu: 

KP1(N)=XXa 

Kf2  ( ii )  =Y  1  m 

Kr  (  XXA+DK  )  /  JK  +  1 

Lz  (  Y Y/\  t-L'Zj  /L'2+1 

K,v,zk  i  (L-3  )*KMAX 

ImPKTA  (KM)  zNPR  I  A(Kk)  +j 

42  HtiC  (li)  zkto 
lulVzl4(-AKT 

43  CONTINUE 
CAuL  OEW 

C  Si_T  uObu  aND  uC'jKu  FLAuS. 

C 

Luo i LmL  I t  ST 

bo  b?  L.-2rLMAXZ 

aT7=U*KMAA 

UO  57  KzSrKMAXZ 

M-KTT+K 

tsM-KT-KMAX 

KjzKM-KMAa 

lTKX-1 

IF  I (Ml KM) .ANO.Ou) .EQ.Ob)  00  TO  44 
Co  TO  57 

44  IF  (C>AiURX  CkI-1)  )  45  r  49  r  47 

4b  Ttbr=(PTXuSLC)  .EU.Rolk)  )  .OR.  (PTX(  l)  .L^.hU(K)  ) 

IKI>A.U,n)  1LSI=,  FAlSE. 

1|-  (  (  (M(KM+1 )  .  ANU.Ou)  .Eu.Od)  .OR.  ( (MlKM+l)  . mND.FULL)  , Co, FULL) 

*  .OK.ILSD  00  10  49 

MlKM  i  3. )  -  l|.| ( KM+1 )  .OR.COK) 

00  TO  49 

47  I  c.ST  ~  { P IX  (  I  SEC  )  .Eo.Rd(K-l)  )  .OK.  (PTa(  1)  .EQ.Rb  ( K-l )  ) 

IF ( ITrX.hu. 0)  TESlz. FALSE* 

IF  <  l  (MiKto-J.)  .AND. Ob) .Eu. Ob). OK.  ( (H(KM-l)  .AND. FULL)  .EQ.KUll) 

♦  oOK.lu.Sl)  oQ  TO  49 

h  (  aM-1  )  z  1  |V|  l  KM- 1 )  .  OR  .COR ) 

49  IF  (UNOPY l K i*» )  )  50»54r52 

bf  TEST=(pn  (iSEC) .Eu.ZB(L) ) .OR.(PTY(i> .E*.ZD(L) ) 

IF  (  IIFa.Eo.O)  TLST  =  . FAlSE. 

IF  l  (  (M(KT  )  .ANO.OU)  .EQ.OB)  .OH.  (  ( M  ( K  I  )  .  <\ND.  FULL)  ,F.Q.  FULL) 

*  .OF. TEST)  oO  10  54 
M(KT)=(M(kT) .OR.COK) 

00  TO  !54 

b2  1  EST" ( pT'i  ( 1SEC)  .Eo.Zb(L-l)  )  .OK.  (P TY  ( 1 )  .EO. ZJ ( L )  ) 

lMIlrA.Lu.P)  TESI  =  . FALSE. 

lr  (  (L'HKbj  .AND. 00)  .EO.oB) .uR.  ( (MIKu)  .  AND.  FULL)  .EG.  FULL) 

♦  .OK.lEbl)  00  0  54 

K(*tM  =  (M(Kb)  .OR.COK) 

b4  COnIINoE 

lFUTFX.Ew.J, )  00  TO  55 
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00  TO  57 

bO  1tST=<  (M(KB)  .AND.COR)  .EQ.COR) .OR.  (  IM(KT  )  .AND. COR)  .LQ.COR) 

+  .UR.  (  ( M ( K,vj—  1 )  .AND. COR)  .EG. COR)  .OR,  (  (M(KM+1)  .AND.COU)  .EQ.OOK) 
IF ( C ( M ( KM ) . AND.Od) .EO.uB) .AND. { .NOT. TEST) )  GO  TO  56 
Ou  To  57 
5u  1||-X=.0 

GO  TO  44 
5  t  C  ol  i  r  1  NUE 

C  ToKW  OFF  uOBu  FLAG  IN  CONVEX  RIGHT  ANGLE  BOUNDARIES. 

C 

Logical  ta» Tbt  ic» id 

CO  59  L=2,LMAaZ 
KTT=L*KMAX 
DO  59  K=2,KMAXZ 
Kl -KTT fK 

KM=KT-KMAa 

Kd=KN-KMAX 

Ta-(  (  (MKu)  .ANu.Ol)  .Eo.OB)  .AND.  (  (M(KM-I)  .auD.OB)  .EO.Od) 

*  .AND.  i  (M(k1  )  .AND.COR)  .ImE.CuR)  .AND.  (  (M(i\M+l)  .AND.CoR)  .NL.ojK)  ) 
To- <  (  (M(KB)  .  ANu.Ob)  .Eu.Od)  .AND.  (  { M ( KM  l-i  )  .AND. OB)  .EQ.OB) 

*  .AND. ( (h(KM-l) .AND.COR) .NE.COR) .AND. ( (M(KT ) .AND.COR) .NE.COlO ) 
•  L  =  <  (  (M(K,4+.U  .AIML'.OB)  .EG.OB)  .AND.  (  (M(Kl  )  .  AuD.OB  )  .  LQ .  Od  ) 

*  •  AND,  (  (MUM-1)  .AND. COR)  .NE.COR)  .AND.  (  (M(Ka)  .AND.CoR)  .NL.CJK)  ) 
lu=(  (  (MM-1)  .AND. OB)  .tO.Oa).AND.  (  ( M  ( K  I  )  .AND.Od)  .tO.oB) 

*  .AND. ( (M(*M+1) .AND.COR) .NE.COR) .AMD. ( ( M ( Kd ) .AND.COR) .NE.COR) ) 
lb.ST=(  (M(KM)  .AND. OB)  .  tu.OB)  .  AND.  (  TA  .OR  .TB .  OR.  TC.OR.  TD ) 
IF(TlST)  GO  TO  58 

00  TO  59 

58  M  i  r»M )  —  ( M  (  kVi  )  .ANL.MASK2) 

59  CONTINUE 
lYFF.  1012 
1YRE  1009 

in.i.2  FORMAT  ( 1H  »  » ICRT »CRTRA  ,CRTRB»CRTZA»CRT2B»  XMAX»  YMaX'  ) 

READ { NuEVl , 60 ) ICRT »  CRTrA , CKTR3 , CkTaA  p CKTZd  » XMAX p YMAX 
TYIjL  in. I? 
f Y  HE  1009 

10J.5  FORMAT (1H  t  * KDMN r KDMX » lDMN » LDMx ’  ) 

READ  ( NuEVl  >fo.t )  KDM|\|»  KDMXr  LDmNj  LQMX 
oO  F  uRMAl  (  X  r  £jF  ) 

6i  format (41) 

11L5T=0 

Hg/>S=PoASE 

G/\SV=C. 

Call  reflag 
Do  65  L=2,LMAXZ 
Kl=(L-1)*KMAX+1 

kr=l*kmax 

If ( ( M ( KL ) .AND.COR) .Ew.COR)gO  TO  o3 
M(KL)=(M(kL) . OR.dND) 

05  lr ( (M(kR) .AND.COR) .EG. COR)  GO  TO  65 

h  t  KR )  =.  (  M  (  rK  )  , OR.BND) 

65  CONTINUE 

DO  69  K=1,KMAX 
K  |=MLmAa^*kMAX 
K i Z=M (LMaXZ-1 ) +KMAX 
Kb=K I KM  AX 

IF  UM(K). AND.COR)  .EQ.COR)  uO  Tu  67 
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tM-(i-UK)  .OK.uNU) 

IF l (M(k1 ) .mMU.COK) .Fu.COrt)  GO  TO  69 
fl(M)z(MlKl  )  . OR.OUl)) 

(.OtillNuL 
10*=. 1 
MaL=C 
l<L  TUKM 


o-  rv 


149 


K'fU 


2001 


SubKOUlINt.  GLimJ 

CO.HMOW  NvaC*NGEM*UAC*  VaC» TMl»TM2» TM3 
NC  VCL.E  *  N51  UP  *  NEjTm  ,  NEDI T  *  OPE 
TlMtrtDTIM,EDU(,MPI  I 
Ot.T  A*  EPS2*UT*  VMaX*UMAX*uELAa  ,CuT 
SM I N  *  EP SI  ,  ritjMAX ,  UBTO »  VB  TO  *  U^.slU  ,  VBNLl 
UM , MU * KHUA * GR  * Gz *  G* I SEC 
ViNf  'JIN*  UKP ,  OLP *  f IBP  *  DOR ,  DuZ 
NEaP*  NEXPP,  hlPART,  ND IV 

NbK  I D  »  KMAX  *  LMhX  ,  KMAXZ  *  LmAXz  *  KM/\X?Z  *  LMAX/.Z 
KOMN  *  LDMi  J  *  mJMX  *  lDMA  ,  MESS  (  7 ) 

ICkT»  AMAXf  YMAX*CRTR  .»»CKTRj,  CRTZAf  CkTZB 
IlLST* IOZ  * 1Z*  GAmA  *  PoAS*  pGASZf PAMB  *  GA5V*  GASvZ 
NF,NG*NI  1  »n*XG*  iiH,Hv*GG*  FUDGE*  llTAL  *  GRAX*  DEL.Z 
bPx  (  300)  *  P I  X  {  30  ))  *  Ki*iP  ( 300)  *  nNP  (  300 )  *  Xt3  (  300  ) 
jPi  (300)  *P1  YC330)  *Zf.|P(303)  * ZNP ( 300 ) , YB ( 300 ) 

DS (300) , iuP ( 3 Jv ) 

R ( 1 50 ) *  Z ( 150 ) * Ku ( ibO) *  Zu ( ISC ) 

L)Ktti  ISO)  *U<lu(  a30) 

M  (  2  S  0  U ) 

RPj.  (  5000 )  *  KP?  (  BoOO ) 

UAvu('2500)  *  V  AVb  ( .?S00) 

P(2S0n)  »U(?5C3>  *CTA(?5yJ)*tf(2500)*F’SI(2500) 
UNuRX  ( 2500 )  *  QNOhY  ( 2500 )  * PNOKa  (  2500 )  *  Pi  jOP.Y  ( 2500 ) 
I'JPKl  A  (  2500 )  *NFRTB(2bO«)  ,MPRTA(E500)  »MPRTB(2500) 
5NC ( 25Q0 ) *  UR  *  DZ 
NBC ( 300) *  IPX (300) 


common 

CjMMOh 
C  OM.MON 
Common 
Common 
Common 
Common 

COMMON 

COMMON 

Common 
C  uMMON 

common 

Common 

C  ijiXMOi'l 

C0,v,MCn 

Common 

common 

Common 

common 

comMun 

Common 

COMMON 
Common 
common 
Coe mon 
Common 


NOfc-  V1.  *N0LY2 


C  UMMOl  J/FLAo  .1  /FL/jO  1 
NEAL  MU 

1 N 1  EfaEK  Ariu  *  OK  , CNThS ,  SUR  * FUU.  *  EMP  *  o 


F  KSLP *  NOSuP *  EMPuNu  *  OB  *  COR  *  OK  * OAS  *  Akq 


■ID*  IN, OUT, 


OAIA  ihl  Rp  ,  CMtRti*  5UR,FoLL*EMP*bMo*  IN, OUT, 

F  HSLP  *  nOSlP  *  EMPtjNlJ  ,  Oti  *  COR  *  uK  *  BAS  *  Al<d  / 1  r  2  *  4  *  8  *  16  *  32  * 
04* 125,25 bt 512* 1024, 2340* 4096*3192* 163B4, 32760/ 
bA  I  A  MASK. I ,  MASK2  *  I1ASK3,  MASK4*MASK5  *  MASK6* 

MASK?  .'MASkB/0777777777757*  0777777773777* 
0/77777677777* 0777777777773 r 0777777777767* 
0^77777377  77*0777777707777*0777777767777/ 
double  precision  omax*vmax 

DooBLu  PKloISIOn  u* V*PbI *ETA*P 

Pl-3, I415y26 

bEPSX= ,  05*uR 

DtPS) = . 00*oZ 

N=1 


* • Xb* YU*NStU« *1) 


) 


I  Y PE 

F UKMAI ( IN 
IYPE  2001 
FORMAT  (1M 

READ(nuLVi*3)  Xb(N) *Yb(M) *nSEU 
FORMAT  ( 2F  ,  1  ) 

IF  (NSLo )  ttti  *  4  *  5 
R=i  1+1 
00  Tw  ^ 

I  ivl  A  A — N  —  1 
ISlC=0 

1-4/  32  1  =  1,  nPMAa 


ir«nirim*-ir  ttClAn^AiVr,,!-i);i'-'r  .vuvJK,./ c.  a*# 


15C 


iFlXHil  +  i  )-Xli(I)  )  10,14,6 
o  I )  +  .  n00001)/DR>2 

A  =  (Yl>11H)-YJ(1)  ) / ( XU l X  +  1 ) -XU  { I )  ) 

l.jK=l 

IVl-0 

B-.U<X)-A*\JlI) 

U(.  i'  KcKl ,  K2 ,  KUK 
IF  (PpIK ) -Ao ( 1  +  1) -0.000001)7,7,9 
/  r/|\|=Ml»,  rl 

Kl'tp  ( Mi )  -Hu  (  K> ) 

<-Vi)  (  hiv| )  =A*K!»ll  ‘  ( I'li'i ) 

b  CoUllNUt 

9  r\LlNL-MM 

00  10  lb 

IP  Kl-  (  >>d  (  X  )  -,  090001 )  /DK+i 

Ar(  (d(XI.1  >-Yb(I)  )  /  (  Xb  ( 1+  1. )  -y.D  (  X  )  ) 
Kc=1 

b=YD(  X  )-A*XLj(  I  ) 

^uK--i  <gSr^ 

lvif-.  =  f. 

^  o  \  2  K  —  K 1 ,  K  0 ,  K  l  j  K 

IF  (Rb(K)  -Xb  (l  +  l )  +  .U0000D  13,11,11 

1.1.  MwiMNi  1  j 

IvlH  ( Ml )  =hr>  (  K  ) 

12  ZMP  ( N:W  j  - A*KMP  l iviNi )  +  d 

lb  KlXML— iviM 

0  u  10  I 
14  KuiML-n 

lb  CuNTliJuEl 

IF  (Ybll  +  J.  j-Y ij(  X)  )  20, 24,  lb 

It,  Lj-(  Vbli  )  4-.  000001  )/Dl+2 

As(*b(I+J  )-XB(I)  )/(Yi,U  +  l)-YrMl) ) 
L2=LMaa 

d- AD  (  X  )  -A*  ifH  (  1 ) 

Lol-J 

Dili 

LO  10  L=L1 , L2 , LUL 
lr  (2d(l)-Yl(X+1)-. 000001)17, 17, 19 
17  r;=iM+ 1 

*."iP  ( !  i )  -Zb  t  L ) 

lb  Ri\iH(  l)-A+^P(i))+U 

19  LulNL-U 
00  TO  2b 

20  Li  -  (  YU  1 1 ) -  .  OQC’OPl )  /DZ+1 

A  —  (  XU  ( 1  I-  J. )  —Xu  (  X  )  )  /  {  YD  (  i  +  1 )  -YU  ( 1 )  ) 
1.2-1 

b-AU  ( 1 )  -A*  7 u  (  X  ) 
i-t/b-—  X 
1 1-0 

uO  22  L-L.1 ,  LO,  UUL 

If (Zc(L)-Yb( i  +  1)  +  .000001)23,21, 21 

21  i  i—l )  4 1 

— ■i‘v’1  (li)-ZbiL) 

22  KnP  ( ii )  =ZNh  (  M)  +  A+U 

2j  LulNL-U 

00  Tu  2b 


...W -  - - 
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24  LLlNE=n 

2b  continue 

00  2b  J=1,LLINE 

Jw=J+KLlNt 

hhP(bJ)=RhiP(U) 

2b  2l»iP  (  j  J  )  =  2NP  ( 0 ) 

JMAX=KLIN1£+LL1NL 
00  27  J=1,JMAX 

2  7  DS  (  J  >  =  ( RMp  l  J )  -Xu  ( I )  )t*2+(ZMP(  U)-TB(I)  )**2 

00  30  N=1,JMAX 
lLST=10.0*-*5 
MlKANSuO 
UO  29  MM=1» JMAA 
lh (OS (MM) -TEST) 28, 20, 29 

28  TLbT=l)S(MM) 
hi KANb-MM 

29  CONTI HUE 

RNPd'd =RMP(MTRANS) 

2iiP(N)=2MH(M‘lKANb) 

Ub(MTUANS|=10.0**7 
jn  CONTINUE 

ul=ISEC+l 
u2=ISEC+J|.|AX 
!m=(i 

00  31  J=J1,J2 
N=N+  3. 

PlX(U)=RNp(N) 

P  f  Y ( J)=2NP(N) 

3.1.  Continue 

1 SEC - 1 SEC + UMAX 

32  CONTINUE 
1  =  1 

33  1=1+1 

34  ll-  (AHS(PTa(  I)-PTa(I-  I)  ) -oEPSX )  3b ,  3b ,  38 

3b  lh ( AbS(PT  rll)-PlY(i-l) )-OEpSY) 36r 36, 38 

3b  ISEC  =  J.SEC-1 

UO  37  j= 1,1 SEC 
P |X (o ) =P1 A ( J+l ) 

P1Y(J)=P1 YlJ+i) 

37  CONTINUE 

ip ( I-lbEC ) 3H »  34 , 39 
3b  XP(I-iSEC) 32 » 39,39 

39  CONTINUE 
1SEC2=1SEC-1 

OcP=  (PTX(  I  SEC  )-I’Ta(  ISECZ)  )  *+2+(Pl  1 1 ISEC  )  -PTY  ( ISECZ)  )  **2 
LEP=SORT(uLP) 

](-  ( DLP- .  2+L'R)  41,42,42 

41  I  SLC  =  iSEC<i 

42  continue 

Di_P=  ( PTX  ( 2 )  “PTX  ( 1 )  )k  +  2+(PJY(2)-PTYU)  )**2 

UtP=S«RT (UEP) 

If-  (DEP-.2*UK) 43,44,44 

40  1  =  1 

uu  TO  4b 

44  1  =  «> 

45  1=1+1 

K=(  .5*  (PI  XI  I  +  D+Pl  X(  i)  )  )/Ui<+2 


Lz(  t.fpnooi'kPI  r  (  I)  )/OZ  +  \ 

Ir  (  (PI  Y  ( 1 )  .CU.PrY(  1  +  1)  )  .AK>.  (PTY(I)  .LQ.ZB(L)  )  )oO 
oo  (0  49 

Jr  (PI  A<  I  hD-PIXl  I)  )»*8»4B»47 
I\i«i=L  >Ki'iAX  f!\ 

KjzKM-aMAX 
[>r\iGRX  (  KM )  zn , 

UNURY  ( =J. . 

PijUPX  {  kM)z,!.>*  (  Pl'X  (  I  )(P  |  X  (  I  f-1 )  ) 

PN0RY(KM)=PTY(1) 

M ( h  M) - ( M ( KM) .uK.Od) 

M(KI3)-(Ni(Ku)  .OR.  COP) 
oO  TO  oo 
KM=  (l.-J  )  +KPAXY  K 
k  I  zKN,  hkMAa 
CkORX  (KM)  zf1 , 

LmoP  r  (  kM  )  z-  \  . 

P.*ORAli\M)  =  .b-MPTX(  1 )  hPrX(  Itl)  ) 

I’RORr  (xM)zPTYt  .1) 

l-i ( K  I  )  =  ( M ( K T )  .OR. COR) 

M  ( KM )  -  ( M  ( km )  .  OP . Od ) 

00  TO  00 

i.z(  .ompi  r  urn  >p  i  y ( i ) ) )  /U4+2 

Krd.onnonj. kPJX(I)  )/ijRfl 

IF  (  ( P  t  a  ( I )  .  EO .  P  i  A  (  I  >  1 )  )  .AND.  (PTX(D  .tGi.RH(K)  )  )  00 

CO  10  4(1 

Ir  (PI  1  (IH)-i  I  Y(I)  >52»02rbJ. 

K  v!=(l-.1,  )»•!<. HAX+K-1 
L/.hOKX  l  KM) z-1. , 
uNCRY (KM)=°, 

PNORX(isM)=PTX(  1 ) 

F'NoR  Y  t  fsM )  = .  P5*  ( P  r  Y  (  1  +  D+PTY  (I)  ) 
h  (KM)  —  ( M  ( kM )  .  OR .  Ou  ) 

M  (  KM  H  )  =  (,.,  (  Ki‘i+ 1 )  .  UK  ,  COR ) 

ou  To  od 

KM-  (  l-J  )  *kMiaX+k 

DwURX(KM)zJ.  , 

UNURY  ( KM );(', 

Pl'iOI<A  ( KM)  -r'  T A  l  I ) 

PiM0RYlisM)-.5*(PTY  i  Ifl)+PTY(  I)  ) 

M(kM-1)z  (<•.,( KM-1)  .vR.COR) 

M ( KM)  z (M (aM ) .OR. Ob) 

CoNTlI'll/c. 

CO  TO  Uo 
COUTINot 

Oa-PTa  (  1  I  1 )  -P  i  X  (  I ) 

Ad/.Rz ,  0*  ( p  I  X  (  i  )  +  P  i  a  ( I  +  l )  ) 

UY=r>TY(Ul)-PT  Y(I) 

YO/.R-,  j*(pl  Y  ( 1 )  +PT  f(ln)l 

kzXBAK/DRh  1. 

Lz  iuAK/DZ  i-1 
S'dMz-YuAK*UX 

If  'PTaI  1  +  ].)-Kt>(K)  ) 57. 54*57 
If  (  PT  Y  (  I )  (  L )  )  DO .  56 »  b5 

Sui-;=D0i-i-2o  (  L )  +UR-*  (  PTX  ( 1 )  -RL>  ( K  +  l ) )  ( L+ 1 ) 

CO  T^  (0+ 


10  4o 


fO  5C 
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LutirSUM-  ( F'TX  ( 1 )  -Kj  ( K )  }  *2B  ( L ) 

00  TO  64 

i K ( PT Y ( I  1 1 } -ZB ( U ) 5°  #  5i) » 59 
!»UM=buM-  ( Kd  { K+  t )  -PTX ( 1  +  1 ) )  *ZB { L ) -  ( PTX  U  )  -Ko  ( K+ 1 ) )  *Zd  ( L+l  J 
bo  To  b4 

It-  l P  I  X (  In  )  -Kb  l K  +  l )  )oo,60»63 
IF-  (PlY  ( I ) -ZB ( L+i )  ) 61  *  o2 »  61 
buM-bOI-1+Zri  ( L+l )  *UK- (  PTX  <  I )  -KB  (  K )  )  ♦ZB  (  L  ) 
bb  TO  64 

bON=bUi-1-(plX(I)-KbiKH)  )*Zl,(L+1) 
tu  To  64 

bu;t=SJ6-(KD(K)-i’TA(  !U|  )  *Zi_l  ( Lfi  )  -  ( PTX  ( 1 )  -Rd  ( K )  )*Zb(L) 

C  jfJ  T 1 1  jUE 
KKkMrlVi-l 
LphM-L  > 1 

i  r  (  bbiM— SM  i  .  i )  bb »  79 1  7C’ 

lh ( AuO ( U  f ) -Aob ( uX )  )  69 » 69 #  6b 

a  F  ( J  Y )  ri7 » o  ? »  60 

KpKM-r  *-? 

00  To  72 

KPRK-K 

00  TO  72 

It  (  Da,  )  70  *  7n  »  71 

LhRM-L 

00  TO  72 

LPHM-L.+2 

00IMT1NLE 

Km^I~L.*KMAX  FK+i 

M(F\K,m)  =  (M(KKM)  .OK. COR) 

Xa vb-.b*(pTX(  1  +  2)  FPTMl-l-i)  ) 

Y  A VG- • 5* (pTY ( 1 +2) FPTV ( i  +  1 ) ) 

K,t\  VO-XaVO/l/R  F2 
LaVG=YaVG/uZ+2 

Ir  (  (KPRM.C.O.KAVO)  .AND.  (LPKM.rol.LAVo)  )  GO  TO  73 
00  TO  70 
If>LC  =  iSEC-l 
lz=l  H 

DO  74  J  =  U,ISEC 
H  |  X  {  J)=Plx(  JU) 

Pm  j)=pty<  j+i) 
lout i nue 
bo  TO  76 

aaVG= . 5* (PTX ( 1 ) +Pi X ( I “i ) ) 

YAVG=.5*(H1Y(I)+PTY(I-1)  ) 

KAVb-XAVb/uR+2 
*-AVb-  7AVG/uZT2 
KoEL=  (LAVo-1.  )  +KFiAX  +  KA  v'u 
KoEL-XCEL+uPi:  i  d  (  KC.El_ ) 

KtoPT-  (LPKm-1  )  +  KMAX  fKPKM 
IF (KMPT.fcu.KCEL)  GO  TO  76 
00  TO  79 
I  DEC  - 1  SEC- 1. 

U-I 

1-i-J 

DO  77  I Z  t  I  EEC 
F  I  Mo)  =F'TX  (  J+l ) 

PI  Y  ( J)=P7Y(  JU) 


6o 

bt 


66 

bbOJ. 

5t>nz> 


LuMUNuE 
C  Li  1 1  1  NUc. 

AtiMl*:-. 5*  (Pi  X ( I  +  1 )  +PT X  ( 1 )  ) 
YuAK- . b* (pT Y ( i+1 ) +PTY ( I )  ) 
L/a=P7  A  ( 1  +  ]  )-PlX(I) 

LY-Pl  Y(  1 1  D-FI  Y <  I ) 
LuNTIUWE 

FV:rtb=bLKT  (bX*+2+UY 
1 1-  ( F  M  A  t )  I  '  0 1  f  j  0  t  6  2 
lHJE  61 

FlKiM/M  { 1  Pi  ,  '  P'MAO=0 1  ) 
call  txiT 
C C>  i 7  liMUt 

KM;  (Li’KM-1  )  +KMAA+KPRM 
KAVf"Xi?AK/uR<2 


j  A I !  ✓  u  i.  I  2 


(LAV;,-1.)  +KiMAa+KAVo 


k:,  ior-(NM-iwAr< 
f;PK  r; 1  (t;UAK)=Kbioi\ 

i-1 1 >'  M)-tM(KM)  .OK.UU) 
DNOPX  l  r  M )  -_•-[) l/P'l-iAo 
I'l'.lKY  i  K  l"l  )  -  X  / 1  .IhO 
Pn'iitx  ( t\M )  tAl.'Mi 
I'.itP  .  (t\M)  -Y.),'U 
It-  l  i-ISLL  i  l)  46»/J4»HA 
ClNT  j  rii.lt. 


HI  bi  tl-.l,  i  lPAK  r 
Xi'tKlM  ( l  ij 

A/..-Rra(in 
IzX/./Ui  +2 
K-  aK/l)is  Pci 
KuAK-  lu-.’  )  ♦  KKiAX+K 

Kb  I  Or!  -  i  f  JP|<  1  tJ  ( i\  JaK  )  ) 

Kn-KuAIM-KsTOK 

iF  UL'i.OPXtKM)  .lit.O)  .OK.  <DNORY<kM)  .IIL.O)  )  bO  TO  85 
60  TO  67 

P JOIN-  i  XK-PI IOKX  ( KM )  )*OUOKX<KM)  +  (XZ-PIIOi>Y(KM)  )*L)NOKY(kM) 
IF  (PliOTM-LPSl)  86 »  66 » 37 
M  ( t\M )  -  { M  (  Ki'l )  . UK.Ahb) 

CONTINUE 
FLKM.1(1H  ,2F) 
ih  (N6c.L-C)  60»  JL»  X 
CO  .*i  T 1 :  1UE 
FORMAT (1H  ,3F') 

Y  OKMA  i  ( 1 P.  t  4F  ) 

HE.  1 '.Mill 

hill.; 


SuoRCUIlUE  KEFLaG 

CcN.MCN  NVMC,NbEN,UAC, VAC, TMi,TM2, IM3 
COMMON  NC i  LLE , NSTuP , NEuTvw NED IT , OPE 
LCMMOn  TlMo,EUT iM»EOuT,NPlT 
COMMON  6ETA,EPSe»0T ,  VM/\X, UMAX, RELAX, CUl 

common  smiim,epsi,  nomax, ubto»vb fo,uund, vbnq 

COMMON  UM,MU»PrtuA,GR,G*.,G,  1SEC 
Common  Vlh,UiN,UKP,DLP,NBP,DDR,DuZ 
Common  nexp,nexpp,npari »ndiv 

C „UMON  NOklD , KMAX , LMrtX , KMAXZ , LMAXZ , KMAX/2 , LMAXZZ 
c  ^  MM  On  KU.-il  - ,  LG  MM  ,  NDMX ,  l.DMX ,  MESS  (  7 ) 

CCMmOI.  ICk  I  ,  XMAX ,  YMAX »  CPTKA » CR  FRo , CRT ZA , CkTZd 
COMMON  lTtSF » lOE, 1Z,GAmA,PgAS,PGASZ,PAMP,0AoV ,OASvZ 
COMMON  NT  ,nG,NI  I  ,h,XG,HN,HV,GG,FULK,E,tJFAL,CRAX,DELZ 
CuM.'ViC^  lii;x(300)  ,PFX(300)  ,RmP(3C0)  »RWP(3C?)  ,XG(300) 
CCMMC,  j  GP*  (  30  0)  ,  PT  r  (  3v0)  ,  ZhP  (  300)  ,ZNP(  300)  ,  YLJ  (  300) 
CoMrION  D5{3Pi>)  »1uPCv;iO) 

Common  l<{  ISC)  ,  2<  ?  30)  »Kr>(  150)  ,  Zb(  150) 

Common  0Rb(.i.50)  »Uel>(15o) 

Coi*  MON  M  {  2500  ) 

common  rrubgoo)  ,rp2<5ooo) 

Common  u/wooson  ,  v^vo  12500 

Common  P(2b00) ,C (£30  >) , ETA (2500) , V (2500  PSI (2500) 


t  MPRT  A  ( 2500  )  ,  MPR7B  (  2500 ) 


COMMON  DNul<X(25vG)  ,ONURY(250O>  ,PNOKX(2500)  r  PNORY  (25(?n> 

COMMON  NPR T A ( 250 0 ) , MPRiB ( 2500 ) , MPRT A ( 2500 ) , MPR7B ( 2500 ) 

Common  snc(2500)  ,ior,dz 
Coi-iMUN  NbC  (300)  ,  IPX(300) 

Common  nlev1.  ,Nutv2 
C  0  M  M  ON/PC  A  0 .1.  /  F  L  A  G 1 
KLaL  MO 

1  i  ,'fCGEK  A  NO  ,  OK ,  CM  i  RfJ ,  SUR ,  FULL ,  EMP ,  oNU ,  IN ,  OUT , 

F  i’SLP ,  i  JOSlP  ,  EMPuMC  ,  Ob  ,  COR ,  UK , GAS,  ARB 
U  A  I A  I N  FKh  ,  CNTRii ,  bUR ,  FuLL  ,  EMP ,  jNU ,  IN ,  OUT , 

FrSLP  ,  | JOSlP  ,  LMPtJNG ,  Ou ,  COR  t  OK , GAS,  ARB/ 1 » 2 ,  '4 , 8 > 16 , 32 , 
t(4 , 129, 25a ,  512, 1024, 2048 , 4Q96 , BI92 , lo384 , 32768/ 
o  A  r  A  M  A  S  K 1 ,  M  A  S  K  2 ,  M  A  S  K  3 ,  M  A  S  K  4 ,  M  A  s  K  5 ,  M  A  ^  K  6 , 

MASK 7 , MA5K8/0777777777757 , 0777777773777 , 

07 77777o77777, 0777777777773 r 077777 7777767, 

C 7 777 77737 7  77  ►  0 7777777.07777 , 07  77777767777/ 

DOUBLE  PRECISION  uMAX,vMAX 
o 'jOilLL  PRECISION  U,V,PbI,ETA,P 
F  1-3. 14.15926 

LOoICAl  Ta,TB, rc, I V,Tn, TEST 
OuuICAl.  AlJ  ,AA,At),  AC-- Ao 
uo  23  L=2,LMaxZ 
MU=L  +  K,MAa 
oo  2o  rsc2,A^AX^ 

K  I  -K  +  K,v)pM 

KM-KT-KMAa 

Nb=KM-KMAX 

If  (  (M(KM)  .ANU.SUK)  .EO.b'JR)  GO  10  2 
00  TO  ]j 

IF (NPRTA(KM) >23,3,23 
1 1-  (  (M(K.M)  .ANU.OU)  .EO.Ob)  GO  TO  4 
oU  T  0  5 

UST=(  (  M  ( KM+1 )  .AND. COR)  .EU.COR)  .OR.  (  (M(KM  +  1)  .AND. SUR)  .EG. SUR) 
.oR.  (  IM(KMM. )  .A No. FULL)  .EO.FULl)  .OK.  (  (M(KM+1 )  . ANU.OND)  .Co.oND) 


B 


•  c-  '• 1  -  ri- 1  •  W  •  U  ( M{ KM- 1 )  . AnD . CoR >  . Evi. CUR )  .  OR  .  156 

.*  lit  (KM-l)  ..vib.bUK)  .EQ.^UR)  .0!!.(  (M(t\M-l)  .ANu.FUlL )  .E'j  FULl.) 

*  •ui';.  (  l\i(K|v,-.». )  .ANL' .bMU)  .Ew.ijNQ)  ) 

•^SUTLST.aHU.  (  (  IMIKD  .AND. COR)  .Ed. COR)  .OK. 

1  (  f  1 ;  !  ;  i "U  •  ;UK  i  .  tw .  SUK )  .  OR .  (  ( ,1  ( K T }  .  A!  JLJ .  Full  )  .  to  .  FUU  ) 

•  oF  .  (  ( M  K  T  )  ./iNO  .UNO )  . Lu •  UNj )  ) 

rt.il-rt,Sl  .A MU.(  (  IM(Kli)  .AND. COR). tin. COR)  .OK. 

*  1  'ANJ.^UR)  .Lu.SUk)  .UK.  (  (M(KB)  .AND. FULL)  .LG. FULl  ) 

*  »Ulv.  (  (M(Ku,)  .AND.iiUD)  .Liji.rjNu)  ) 

I F  (  T r. S 1  )  v,o  1  j  23 

fMKM)  =  (MlKM)  .UR.EMP) 

F‘(KM)  =  (Mii;..|)  .ANJ.HASKJ) 

M ( KM ) - ( M ( *>, ) . AUu . MASK 4 ) 
f*(KM)ri»,C 

iF  (  (Ml\to>j  )  .AND.EmP)  .  Lu.F.MP)  GO  TO  6 

oo  ro  7 
COuTlNuE 
U(c«M)  =p,r> 

IF  (  (  M  l  KM- J. )  .  AimD  .EmP  )  .  Lu  « EMp)  u  ( KM-i )  ;o.  i) 
iF  (  (M(KT)  .AND.EMP)  .Eu.EMP)  V(K,W)  =  J.O 
iF  (  ( M C Kl> )  . ANu.EMP)  .EU.EMP)  \/(Ktj)  =  D.O 
Go  TO 

iF  (  (  M ( KM )  ./V'JQ.tMP)  .EU.tMP)  60  10  14 
GO  TO 

HikM)-O.C 

NNM=LPRTA(KM) 

IF  i film)  15,  23 » lb 
M  i  KM  J  -  (  M  ( K ivi )  .  UR ,  SOK ) 

M  (  KM )  -  (  M  (  KM )  .  Mrlu .  MASK  i  ) 

U.-KM 

VLAK=VaVG ( U ) 

VLaK=vL)AK/NNN 
ObAR-UAVG ( j ) 

ULlAKrUdAK/iMNN 

If  •  (  I  HlKM+1)  .ANti.EUP)  .EU.EmP)  ,0R,  (  IMIkM+1)  .AWD.OUI  )  .FU.Oul  I  ) 
UO  TO  17 

U(KM)=UbA,i 

•E0-EMP,-0R-<  <M<KM-AI.AND.OUTI  .FO.OUTI  I 

*  iusM)^BAp/ANU,EMr)  *E,J*FM,J)  *0K- ( IMCKT)  .AMu.OUD.Lol.OUT)) 

*  V  ( KD }  =VbAR  * Al  JU * FM'  )m^‘  EAP  ]  ’  °K  *  “  M  ( KB  >  * ANu •  OU T  )  •  Eu .  OUT )  ) 

C  oil  T  J.  I  JuL 

Do  47  l=2»lMAAL 
FMNi-1  *kMAa 
GO  47  k=2,isMAA2 
k 1 =K i kmm 
KM-K  t-kma a 
F  b-KM— kMA a 

IF  (NPRTAUM)  )  24 r  47 1  24 

IFKM(KM)  .AND. FULL)  .EQ.FULl)  UO  TO  2b 

GO  TO  3(1 

IF'  (  (MlKM+i)  .Ai-iU.EMP)  .Eo.EMP)  UO  TO  2n 
GO  TO  Zu 

IF  (  (M(KM-l)  .ANj.EhP)  .tU.EMP)  GO  I'O  <i9 
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IP  (  (MM  )  .aNU.EmP)  .EIQ.EMP)  GO  TO  29 
Ih(  (M(Kb) .ANU.EMP) .EO.tMP)  GO  TO  2° 

GC  TO  4  7 

dV  H  ( KM )  =  ( M  ( K.M )  .  UU .  SUP  ) 

M  ( KM  j  -  ( M  (  k  -i  )  .  ANU .  MASK D ) 

P(Mi-O,0 
GO  TO  47 

30  1F( (M(KM) .AMJ.Ou) .EQ.Ou)  GO  TO  47 

1K(  (M(KM)  .AND.SUrt)  .EO.bUR)  GO  TO  32 
GO  TO  4 7 
32  St-P-C.O 

T (KM)=0.n 
fi-n 

XF  C  (M(KMtl)  .ANU.EMP)  .Lu.EMP)  GO  TO  47 
JM (M(KM+1) .ANU.FULL) .EG.FULL)  GO  10  34 
00  Tu  3b 

34  SoP=£>c)HP(KM+l) 

N~ll  +  1 

3b  IP  ( (MlKh-1 )  .AIMU.EMP)  .Eu.EHP)  GO  fQ  47 

IF ( l«(KM-l) .AND. FULL) .EG, FULL)  GO  TO  37 

00  Tu  38 

3  i  SuP=SGF'+P  ( f\M“l ) 

I  izt\»+ 1 

38  IP  (  (r-i(KT)  .ANU.tMP)  .EO.LMP)  GO  TO  47 

IF  (  (MKT)  .ANU.FuLl)  .EU.FULD  GO  TO  40 
G  0  T  0  4 1 

40  SgP-SuP+P i KT) 

N-N+ ) 

4 J  IF ( (M(K8) .ANU.LMP) .FO.LMP)  GO  TO  47 

IF ( (MIKB) .ANU.FULL) .EO. FULL)  GO  TO  43 
Go  TO  44 

40  Sol:=SGP+P(M3) 

NzlHj 

44  M(KM)-(M(KM) .OP. FULL) 

M(KM)  -  iM(kM)  .ANU.MASKo' 

M  IkM  )  -  ( M  ( ,\M )  ,  ANU .  MASK 4  ) 
li-  ( M )  4b  1 4b »  46 
4b  P(KM)=0.0 

GO  TO  47 

4t»  P  (KM)  -5GP/N 

4  7  CONTINUE 

uO  68  L-2»LMAa2 

Kl T-L*KMAX 

I'D  63  K=2,KMAA L 

KT=KTT  i-K 

Km-K  1  -f\  M  A  a 

Ko=KM-KMAa 

i'r  (  (Pi  (KM)  ,  ANU.Od)  .LQ.Ou)  go  to  48 
GO  TO  b8 

48  AA=  U  M  (  KM  )  .  ANU  .  OK  )  .  f.O  .  uK ) 

TA=(  (M(KM+!)  .ANu.Ob)  .Eg. Ob)  .ANU.  (  (MKM+1)  .ANU.EMP)  .EO.tMP) 
lu=(  (M(KT  )  . ANU. 08)  .Eu.uB)  .AND.  (  (l!(KT)  .AND.LMP)  .EO.LMP) 

Tu=(  (W(KW-A)  .ANU. Ud)  .Eu.08)  .ANjj.  (  (M(KM-1 )  .ANU.EMP)  .EQ.EMP) 

T  v  —  (  ( M  ( Ku  )  .AND.  08)  .Fu.uB)  .AND.  (  ( M  ( i\8 )  .ANU.EMP)  .EO.LMP) 

1  c.ST-1  A *0|<. T8. OK.  iu.OR.TV 
|V,  ( M )  -  ( M  (  km  )  .  ANU  .  MASK7  ) 

IF ( ( (M(KM) .ANU. Ob) .EO.oB) .AND. ( (rt(*M) .ANL.AK6) .Eta. ARB) .Anj. 
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( .uor.Ttsi ) )  m(km)=cm(kmj .ur.ok) 

TtST  -  .F  ALbL  . 

It-  (ON'JKXUM)  )49»  51,50 

IF  (  ( !>■!  t  rs[-1-i  )  .AUU.EMP)  .Lj.F.Mp)  TbST=.TKUL. 

0 0  To  51 

lr  1  ISUHti )  .AiMj.LMF)  .tu.EMP)  rtSI  =  .TRUL, 

1  F  ( C Noi<  Y  ( KNi )  )  6  2 » b  4 » 5 

IF  (  (‘MKH)  .ANiJ.LMP)  .EG.LMP)  TrS  f = T  l£  S  T  Ok.. TRUE. 

bo  rc  54 

If  (  (MKT)  .aNL'.LMP)  .Eu.tMP)  TESfzTEST.Uk,  .  ikue. 

JF  iTLbl  .  Allu •  (  (Fi(KF)  ♦aNj.OK)  .Eu.OK) )  M ( KM ) = ( M l KM )  •AND.MASk  7) 

IF  (  (Mki'i)  ,  vND.Uk)  .EQ.Ok)  00  TO  56 

F(KM)=P. 

00  10  oH 

iest=iaa. to. .false.)  .aud.  <  (fkkm)  .and. cm  .lu.om 
If  (TEST)  uG  lo  b7  ** 

C> C  1  v>  AH 
L 

St-  -U , 

IF  (  (  lF;(Kf )  .AMU.uK)  .EGl.O*  )  .OR.  (  (M(KT)  .AND.  FULL)  .EG.  FULL)  ) 

Go  TO  SH 
CO  TO  59 
Sk=.5P-Iu(K I ) 
h-M  1 

IF'(  (  lM(Ko)  .ANU.OK)  .Cw.oK)  .OH.  (  (M(KO)  .AND. FULL)  .  EU.FUlL)  ) 

uo  TO  60 

CO  TO  61 

SF=SPt-p(K0) 

l'i;N+  1 

IF  (  (  l  M  ( KM+1 )  ,/M'Ju.oK)  .to.  OK)  ,0K.  (  (M(KM+i)  .AND.  FULL)  .Eu.FUi_L)  ) 

00  TO  62 

00  TO  t -)3 

SF=STi-fMKi.iH. ) 

hzN+J 

IF  (  (  (Fl  (KM-.!  )  .AND.  OK)  .La.  OK)  .OK.  (  (M(KM-l)  .  aND.FJLL.  )  .EQ.FUcL)  ) 
00  TO  h4 
GO  TO  hb 

Sp=SP«-P(k,.|-l> 

N  =  N+  j. 

1  h  (I  I)  60 1 63 1  bu 

KKM)-SP/h 
0  oN  1 1  rJUL 
CALL  Vi ELbb 
UO  71  l=2»LMaKL 
MM=il.-1)*i\Max 
00  7.1  k  =  L»kMAXz. 

M:— K4t\MM 

IF  (  (  MiKM)  .  ANC.LMF)  .EG.EMP)  .OK.  (  (M(KH)  .ANu.SUK)  .tu.Sl.'P)  ) 

(-•O  1  (i  69 
CO  TO  71 

IF ( (M(KM) .AND.AKU) .EG.ARd)  60  TO  71 

H(KM)cpAMd 

Coni  11SIUL 

KlilUKU 
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Subroutine  f-roi  r 

COMMON  NVaC,NGLw,UAC, VaC,  T Mlr Tm2,  T i'-i 3 
COMMON  NC  f  U_E , NbToP,  NEijTm,  NED  I  l  ,OPE 
COMMON  TlrtLiEUTIMiEDJl ,NPI  r 
CuM»rci4  BE  1A , LPS2»UT, VMAX, UMAX, RELAX, CUT 
Common  SMi.*,EPSl»NljMHX,  U3TO,Vd  rOfUL.'JUfVRMQ 
COMMON  UM  t  MU  ,  RlloA  ,  OR , Gz »  6  ,  I  SEC 

Common  vin»uin,ukp,olp,nbp,ddk,duz 

CuhMOri  NLaP  t  NEXPP ,  NPAH  |  ,NDiV 

common  nor id , kmax, lmax , kmaaz , lmaxz , kmaxzz , lmaxzz 

0 OMN  Oi'l  KDmN  ,  LUMn  ,  KLIMX  ,  lDMX  ,  MESS  (  7 ) 

COMMON  ICR  !  ,  XMAX,  YMAX ,  CRTRm  » CKTRb » CRTZA  ,C|<TZd 
C  oMMoN  HtbT, 102,14,  GAhA ,  PdAS ,  PGASZ ,  PAMB ,  bASV  ,  oAS  Ml 

common  nf »  ng  »  ni i  »  i  i»  xg  »  i  if)  ,  h  v  »  g&,  fuooe  »  ntal  »  crax  »  delz 
Common  bFa(300) ,ptx( 3Go> #kmP(3jO) »rnP(300) ,  Xd(300) 
ComMON  dPt  1300)  ,Ph  (300)  »  ZmP  (  3’DO )  ,  ZNP  (  oOG )  , Yd(300) 
CohMON  uS ( 500 ) » iDP { 30C ) 

C oMMCii  R  { ISO)  ,Z(1S0)  ,Kj(  150)  ,  Zj( 150  ) 

COMMON  L»Ku(?.50)  ,UZb(150) 
common  mi,?500) 

CoMMO.j  RPj  15000)  >RP2(jG00) 

Common  UAVu{2500) ,  vA  Vo ( 2500 ) 

COMMON  P(?bO0) , U ( 2500 ) , ETA (250?) , V (2500) ,PS1 (2500 ) 


COMMON 

Common 


COMMOi'l 

common 

COMMOi'l 


ComMON 
COriMoU 
C  OMMCii 


CoMMOrJ 

Common 

common 

Common 

common 

C oMMON 


Uf'ioKX  (  25  wC )  ,  OMOKY  (  2500 )  ,  Pi  IoKX  ( 2500 )  ,  PI  JOKY  (  2503 ) 
COMMON  NPrTA ( 2500 ) , MPR I B ( 2500) ,MPRiAUSOC) , MPRTB ( 2500 ) 
Common  snc (2500) ,uk,dz 
Common  nbc(300) ,ipx(3Co) 

Common  Not vl * Nutvc 
CoMMON/FLaG.l/FLAGi 
Pc At  MO 

I  ivi  \ EGER  AMU ,  OR ,  CN  I  KB ,  SuR ,  FULL ,  tMP ,  oNU ,  IN ,  OUT , 

P  pSLP ,  NOSlP  ,  EMPjNL ,  Ou ,  COR ,  OK ,  GAS ,  AK[3 
UaTA  InTRf  ,CNTRo,SUR,FuLL,EMP,.3M0,IN,0UTf 
F  H.SLP  ,  NOSlP  ,  EMPuMO ,  OB  ,  COR ,  oK ,  bAS ,  AKb/1  »  2,4,  A,  lb,  52, 
t 4, 1LN, 25b » 512, 1C24, 20'p5, 4096,3192, 163A4, 527o0/ 

CAT  A  MASK!  ,MASK2,  NiASKo,  MASn4,  MASN5,MASK6, 
mask  /, MAS|\c./U777777777757»  0777/77773777, 

C  777777677777, 0777777777773, 0777777777767 , 

0  777777737  777, 07777777*37777 , 0777777767777/ 

OOUULt  PRECISION  0,V,PbI,ETArP 
DOUBLE  PRECISION  VMAX, UMAX 
PI=3. 1415*26 
foRlTF  (22,1) 

P  OHMA I ( 1H  ,'EUI1*) 

F  oKMA  T  ( 1H  , 'L=' ,  I5,:5X,  *K,ETA,PSI,U»  V»P»X  OK  K ,  UPART ,  VPAR  I  *  ) 


F  UKM,\  I  ( 1H  , 'CYCLE*  ,  IA,  ♦  TlME',L,'  oT' 
HD,'  PAMb',  F) 

WRITE  (22,4)  NC  YCLE ,  TIME , DT ,  NPAK  T , PAi-id 

ht-.l  TE  ( 22 , 7 )  RHOA ,  Mu 

FoKM/\T(lh  ,  5X,  »RHOA=' ,E,  '  MU=',E) 

KKi TE(22,3) 

k  oRmat ( in  , *  surface  particles') 
mm-o 

DO  .14  n=1,NPAM' 

X  a- Kl-'l  ( N ) 

T r-PP2(N) 

K-XX/uK+2 


TIME' 


IMPART 1 


.. - .  ,  . . 
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LzYY/DZ+'» 

*M=K»  (L-l  )*KMAX 

I K  (  ( M ( KM ) . AND . SUR )  .  EQ . bUR )  GO  TO  9 
00  TO  1.4 
NiM=MM+  J 

t  O  TO  (10,11  r  12) 

Xl_XX 
YJ.=Y  i 
GO  TO  J.4 
A2-XX 
Y?  =  YY 
GO  To  J. 4 
XO=XA 
Y3=Y  r 
f-'l  M  =  0 

Rol.MA  r  (111  ,9X»2k.»2Xf 2£,2X»2t*) 

WR 1 TL  (  22 ,  lJ> )  X.l ,  Y 1 ,  a?  ,  12 ,  X3 ,  Y3 
(.  OUT  i.  noE 

DO  27  L=LjMIM,l.OMX 
M  T=(L.-1)*KMAX 
hM*Tt:iK2,,i'i)  (MESS(  1)  ,1=1,7) 

FORMA  l’  ( lli  ,  7/\U) 

WkiTE(22»lft)^(L) ,  IlCYCLL*  TIhE  ,  Mu»  liHOA 
F0KMAl(.lh  , ’Zs’,E,»  CYCLE=»,  I,  »  TIML=*,E,’  MU=», 

L , * RHcs ’ , L ) 
rtlU  TL(?.2»2)L 
00  21  K=KOMM,KUMX 
KpzK  i-KTT 
UPmRI =UAVo(KP) 

VpaRTsvaVo(KP) 

MpzUPKTA(KP) 

1R  ( MP )  17 ,  17,10 
URaRY=0 . 

VP/\RT  =  r. 
to  TO  19 
UPaIUsOPA,vT/NP 
VPaKT  =  VPAi<T/NP 

TlSTziU(Kh)  .NE..C*)  .OR.  (  v(KP)  .NE.9) 
iR (TEST)  bO  TO  20 
GO  Tf  c.l 
CoHTlfJUE 

wRiTfc.  (  22,  j)K^ETA(KP)  ,PbI  (KP)  ,  U(KP)  ,  V (,<k)  ,P(KP)  ,R(k  )  , 

Ui-’AKT,  VPakI 

format uh  ,i4,6e.is.b) 

CoNT  i  UuE. 

IF iOPi.w!  ,o)  ^0  1C  22 
oo  TO  27 
WRITE .  122»23)L 

f  ORMAT  ( 111  ,  »L=*  r  IC,  •K»l-ULL,SUK,£MPt  OO,OK,AR0,COR»UND.  INrOUl  ,GAS, 
tfoPbfW ,  bNc  » MPT ,  KMPK,  DRlOKX  t  uNOR  Y  ,  PNORX, PMOR Y »  UBNDf  VflUO  *  ) 

DO  2b  RsKuiTM, KDMX 
K,v|=K  i  K  T  T 

tests (npri/  (khj  ,ni:,o)  .or.  ( and ( ,w c K.-r)  ,cor>  .lo.coio 

•gR.  ( ANU(mIKM)  »0B)  .EO.oBJ  .OR,  (aNL*(m(KMJ  , SUR )  .LO.SuK) 

.OR  .  (  AND  (|/|IK.M)  ,RULL)  .Lb.  FUlL  )  .OR.  ( A. 'ID  ( R  ( M )  ,  a  NO )  .tU.bUU ) 

.OR.  ( AND  ( M ( KM ) » IN)  ,E0.  IN)  .OR.  (aND(Ri(KM)  ,  OUT)  .LU.OuT) 

.OR.  (  .iviOl  .  (AlMU(MUM)  ,LmP)  ,£O.EmP)  ) 


Ir  (  TLo T  )  o'j  TO  24 

0 u  TO  26 

Mft=Q 

IF  (  »FULL)  .EG. FULL)  MA=1 

F.L=0 

IF  (  ANU  (M(kM)  rSUK)  .EQ.bUR)  |v|0  =  l 

f-1  c  =  o 

IF  (  ANd(M(KH>  »EMI-‘)  .EG.EmP)  i*iC=l 
MJ-0 

IF  (  AMulM(i'^i)  »Ot>)  .EG. OB)  MD=1 
N.  i_ — 0 

IF (ANJ(M(kM) fOK) .Eu.OK)  ME=i 
KF  =  0 

i  F ( A  NO ( M ( KU) t ARb ) • EG . AkB )  MF— 1 
Ku=L 

IF  l  AML  i M  ( KM )  fCOK)  .EG.CoP)  M&=1 
MK=0 

1 F  (  ANo  (  M  (  k‘vi  )  *  oNu )  ,  EG .  dl\lD )  MFl= 1 
M 1  ~  0 

IF  (  Ai  Ju  (  M  (  kiv, )  #  li'l)  ,  EG ,  IN )  MI  =  1 
Mj=0 

IF  (  ANU(M(kM  »UUl  )  .EG. OUT)  MJ=i 

M,<,rn 

IF  (  AMU  i  M  (  kM  )  t  GAb )  •  EG  ,  UaS  )  MK=i 
ML-0 

IF  (ANU(M(km) »EMPBNU) .Eu.EMPdND)  ML=1 
M,v,*SNC(KM) 

|'.A=NPKIA(uM) 

Mh=NPKTLiiKM) 

*> H I  Tc  (  ? 2 1 2b )  K ,  MA  r  l«;o » NIC ,  MD  #  ME »  MF  » MG  t  MU ,  M I ,  Mo  t  MK » ML 
MM»MA  f  KbfUNORX(KM)  »DH0kY(KN|)  rPiMUUX(KM)  » PNOKY ( KM ) 
FUKMA1  (in  »I5*lX»3U#lX»4IlrlXf3U»lX,Jll»lX»i>13» 
4p ) 

Continue 
Cunt INUt 
I  t  F  L  20#l'!cTCLE 

(22»2o)NCYCLE 

FuKMAKiH  r’EUll  COMPLETE  FOR  CYCLF_«n4) 

EuU  FIlE  ?2 
K(_  l  UKiJ 
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COMMON  iv  v  r  NGf-h  »  UAC  *  v  f\C  ,  TMlf  Im2,Iiv.G 

COMMON  IIC  Y  OLE  t  NSTt'P,  NEuTM,  NED  If  rUPE 
COMN  Oi  l  TIi»iL.  ,  EO  l'IM»  EIJu  f ,  HP  I  r  t  NI  I EK 
C  Oiv'MON  btl  A,EPS2»UT  ,  VMaX »  UMAX  rKEL7tX»CUI 
C cPMON  SM I  \  i ,  EPS!  •  lJbMA  X ,  UOTu  t  Mb  T  0 1  Uu'.  10 »  VBI 10 
C  ijMMOI  i  UM  ,  I'lU  »  KUO  A »  OR  I  SEC 

C  oMMOu  V  IK ,  UilM  t  uKh  »  OLP ,  NBP  *  DDK  ,  DUE 
CCKMON  NExF',NEXPP,NPAKi  »NfJlV 

CoMMOu  NCkIO  r  KMaX  , LMAX  ,  KMAXZ  t  LiMAXZ » KfMAXZZ »  lMAX^Z 
C  CmMC'i .  NlW1*  t  LOMU » h.UMX ,  lDMX  , MF.Sb  ( 7 ) 

C *  1  Ck  1  »  XmA  A  »  i  MAX »  CRTKa  » CKTRti » CRTZrt ,  CRTZu 
CgmMOi  i  ]  TEST » 10Z,  IZ,  GAMA »  P6AS  »  PGAbc  t  PANO  , GASV  »  GAS V X 
CgM’iON  NF  ,  N6»Nl  T » h»  X6»  FiH»  HV » GG  ,  FUUulir  llTAL » CRAX »  DElZ 
COMSon  K(  lbn)  ,Z(  ISO)  »Ko<  150)  »Zd(lS0) 

COMMON  GRisdSG)  »DZd(ibO) 

C  ui-iMOM  M(p5>°n) 

LgMOU  PtpbpO)  nJ(CSCA)  ,FTA(250})  »V  (250 C)  »PSI  (2500) 
CuMIIOr.  IJi'lOi'X  ( ?.b  :>Q  i  » PHOrtY  ( EbOO )  » PNO*X  ( 2500 )  •  PNOP.Y  (  LOO  A  ) 
0 oMMON  L’>K,uZ 
Cui'iMON  NUt>  \  rNuc.  VC 
L  oMMON/FLag  ’ / F  LhG 1 
c  uriMOry  Ml  [  im/Mo  I I  I 

L  vMiMOi  i/F  LG‘>/  I  1  Y  f  i  Ib.-lP » I'lLPT  1 1’iSTP  r  NPIm 
L  jMPWi'l/  ST  jr  F/EKKOKb » i  (AmF  » I)  i  VS »  rfCHMrUCHto 
C  0 IM  M  0 1 M  /  M  0  u  b  E  / 1 M  A »  iNYr  Xl  jSw  »  SWSTaT 
CoMMoN/LG  JA/PiMX  »  UMX»  V  Ia»  PMXl  »U,-|Xi r  vMXl 
CoMMON/MX/uTMAa 

l  jC  1CAi_  T|li  NL/Ml  • » I  iF.QT  t  IMS  TP  »  NPIi-1 
LOGICAL  NFIB 
HEAL  MG 

l„il£ OrlK  Ai'iL  , OK  » CN 1  KB »  SJR ,  F ULI . 1  £MP  ,  uND  » IN  t  OUT  t 
H  F  pSLF  t  MOSlP  r  LNiPdNg  t  Ol>  »  COR  t  uK  r  GAS  t  Ai<L3 

LA  I A  IiMri<F»CNTRG»SUR,FuL.LrEMPfdNL»IM»OUT, 
r.  F  pSLP  •  I'.OSlc  »  EMPbND  »  Oil »  COR  f  OK  r  GaS  r  AKil/  1.  »  2 »  4  r  ti  r  16  r  OL  » 

*.  LH,  120  r?.L*C>»  Sic » 1024  r2U46»  4096 »  UllJ2»  lu3&4»  327o«/ 

L  A  f  A  (MASK  1 1  M/\Sh  K ASF^  o  r  MASK4  »  MhSKS  t  MASK6  , 

+  MASK /.y.Ab^/0777V7777775Vr  0777 >77773777  t 

*  0?7y777d77777»  077777 /7’77773r  0777777777767 » 

*  o /77? 7  7707  777 r 0 7777^7767777,077777  7767777/ 

CALL  PSLJJ 

7  YPF  JP1 

3 P  .1.  F  oKhA  1(111  ,'PhOCLGS  OK  EXANlME.-* '  » 'B ) 

AcCLH  002»1U0 
Of’ 2  F  V..KMAT  ( A  .l ) 

IF  (  IOg.Eu.  »  E.  *  )  CaLL  Fa  Am  IN 
I  rhL  i 

1  FoKKaI(.1h  ,  *  AuMhC  •  ) 

hPE  2 

2  F  utLMA  I  i  lrl  ,  •  Sa  VLU  CORE*'  •  » :b  ) 
a C 0 L P  I  jm’iS 

3  FoKMAl(At) 

IF  1 1 IYS. EG.  »  Y  •  )  Gg  TO  02 

F  l/\01  =  0 
(VPF  4 

4  F0KKaT(1H  ,  'INPUT  FILE-’  »'•»>) 

A.CCLf’T  S , I^AME 

b  F  OKM/\  i  ( AS ) 


I  ^  J-J 

^ AMM 1  =i jAMl 

Call  if  ill.  i  22 »  namu  ) 

l<tMr.>i2?)UoLN 

l<t/a)  l  22 )  Wc  TCLE ,  MoT  OP ,  NLPTM ,  NED  I T  ,  OPE 

KfcA0{2Ji)Ti-‘lC»E0l  lM*EDUr*NPlT 

Kt aD ( 22 ) UEl A » EPG2, DT , VmAX  »  UMAX,  RELAX,  CUT 

i<i:  M*  (  22 )  SMlM ,  EPbi »  NBMA  a  *  UO  TO ,  VjTO ,  UI3!  ID  t  VfJN  u 

Kt.AU  (  22 )  UM ,  MU ,  KI  IOA ,  GR .  b? , G ,  ISEC 

K[_AU(  22)  V  i  w ,  Ulu,  l)kP  ,  UL|J »  NdP ,  DCK ,  DU 2 

KcmU  (  22 )  NCXF ,  I'JLXPH ,  NPAUT ,  Mu  I V 

KGmG  (  22  )  NuK  IlJ ,  KI<iA  A ,  LMAa  *  KMaXZ  ,  i_MAX2  ,  KMAX2 L ,  LMAXZ2 

KlAJ  (  22)KuMN,Ll/MN,KDiMX,I.OMX»MlSS 

Kc.AU  i  22 )  1CKT »  XMAX,  YMAX ,  CRTKA  ,  C(<Ti<b » Cf^T^A  ,  CKT2u 

Kb. AL  l  22. )  1 1 1 S  I  ,102,1?  » GaMA , PGAb » PGASZ,  PA  Ml}  ,  bAS  V  ,  GAoVZ 

•■<L Ao  (  22 )  l  it  » 1 10 ,  Mi  T ,  U ,  XG ,  HiH ,  i  |V , Go ,  F  JUGE ,  UTAL ,  CRAX ,  DuLZ 

I'LaM  (  2?  )  K ,  2 ,  Ku ,  2b 

Pc.  AG  (  22  )  [JRU  ,  u2d 

KL«U(2C)m 

I>Lau  l  22 )  F  , U,  F.TA ,  V,  PSI 

Kt  aD  (  22  )  UMUf;X ,  lLiOkY  ,  PNnR X » PMOKY 

Ft-  /\U  i  2,2 )  Di-i  ,  I)*. 

b  1  !W>:=ulPH*2-kL>Z*+2/'  ( 0R**2  b02+*2  ) 
u  i  imAX-.A^u  TMAX/  (MU+.QOoCOi  )  ♦RilOA 
U 1  -  .  it*  { Ul  +iJTI  IaX)  ~ .  b*AUb  (  0  I  -DTMaX  ) 

U  I  I-iAX  =  l:T 

l:LLAX=.a*i<H0A*Ji<**2/L)  I 

t,pl:  v 

h  oRHA  I' { 1H  ,  MJROh  ,i) 

A C C F. f J T  J,iUS 

If i  ms.  Eg. 'M* )ou  ro  32 

I'-AMf  r..~MAMt.  b{j 

Call  If  1ll(?.3,name2) 

READ  (  23 )  M 
KcAf)(2u)U,  v,P 

Eb.Au  (  23 )  u  i ,  RHgA ,  f  IMF. ,  UC  VCl.L  t  MU ,  EPSil 

KLaIj  (?.„■>)  KljMN t  KUMX *  LOMN ,  LUMX »  OK ,  D2 , KMAX,  LMAX,  DTMAX 

1  YPL  7 

FoliiM,\l  (  Jli  ,  »tNPIT=»  ,*) 

ACCEPT  b.iiPir 
F-  0KMAT{  1 ) 

1  t  PE  D 

For  MAT '111  ,  *Nl)MPT-»  ,*> 

ACCEP  I  9 , ,  JUMP  r 
'I'fPE  in 

1  uki-ia r ( in  ,  »keuit-* ,i) 

aCCER 1  <J,HLUiT 
I J  t_  I  j  GM-NC  YCLE  I  NL'J.l  I 
L  ui  <  T  i  f  JUE 
t  u'L  non 
I  if  1  f3—  •FALbt- * 

F-  2 T A  T  ( IN  ,  » F  i  J  tAJIJ?  *  ,'j.) 

ALLl.PT  Drl,NTb 
I  Oi<M/\  I  l  A.1. ) 

J.f-  ilTlS.EU,  'N»  )G0  lU  902 
tiF  1M~.  TRUl. 

CONTINUE 


il 


05 


54 


5b 

3t, 

57 


5o 

5b 


40 

4.1 

42 


43 

44 


4b 
4  b 
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r-rPF.  u 

F  (,'HMAT  ( lh  »»CKCATL  SHAkE  FILE;*’,!) 
nLLEPT  o»NYS 

IF  ( iJ  »  b.tlo.  *  Y*  )  CALL  FILE 
Ti  r-.TKUL, 

UPlM-.t-ALbL. 

NWMP-  ,  f'ALbt. . 
ilLi)T=.F-ALbL. 
i,ST Ps « f  ALSL , 

Tf-  v  =  .2b 
T-.o=:’.#r 

i  v-.b 

LoiMT  *  NOE. 

UM=MU*uT 
o (j  J'i  I  ,-.t ,  hGRIi) 

pr.i  (n  /=(«.(« 

L  I  a  ( l  • )  -  0 , 0 

CuUTI  i'UJt. 

la-  4b  L=2,l.MAXZ 

K(.|Mr  { L* •  X )  *i\MAX 

Jh  llibLw  •L'J#  0)  00  TO  36 

l  -I  :=  I  F  V*  ( I  - 1 KMM+ 1 )  +0  (  KMM+? )  )  **N  .,.jR*Ki  iOA*l<  (  L ) 

Oo  TO  30 

U  ,-aR=F  v*  ( o  ( KMM+.1 )  +U  ( KM|»i+2)  )*RHoA*Rl2) 

1P(UBAk)3u»37»57 

Or;=t.Jt.AK*u(r\MM+lj 

Go  TO  50 

OR-UBAI'+U  ( r\MM+2 ) 

00  4o  K=2,KMAXz<l 
Ml=K  1  Kj'lM 
Oo=UI\ 

if- ( HOLT  J  .LO,  U)  00  TO  4l 

U|’=TKV*(U(KM)+U(KM+1)  )  **NS»uU*ki |0/\*K  (K-l-1 ) 

Oo  To  44 

OjmR-~F  V*  ( b  ( KM )  Hi  1 1’\ i*l  l-  i  )  )  *RHOA*R  (  K+ 1 ) 

I F  (  ULiAR )  4 2 , 43 , 45 

Lt:=UuAR*UiKMH) 

OU  Vo  44 
Oi*=UDMk*U(tsM) 

It  (  (  l  M  (KM)  .  ANU.F-MP)  .NE.EMP)  .ANu.  (  (M(KM  +  1)  .ANu.oMP) 
..ib.Lrtp)  )  oO  10  4b 
00  ro  4o 

V  I A(KM)=L r A ( KM ) +RHOA*0 ( KM ) 

o  )  A  { i\M )  -L  f  A  (Km)  -DT+  (  (  Uk-UL)  / < ORB ( K )  *Ri3  (K )  )  ) 

COI'.T  IMUL 

00  01  K=2,KMAXZZ 

vud.p 

uu  nl  1.-2,lMAXZ 
K  T - K s  L*KM/.»X 
K.-i-Kl  -KMA.X 
Ko-KM-kMAX 

V:i=V  . 

W>aR--F  «*(vt  KM)  t'.'IKMH)  ) 

IF ( ( (rt(KM)  .ANO.LMP)  .F.o.FMP)  .ANo.  (  (t-KKM+l)  .AMU.LMP) 
.lo.LMP))  00  TO  47 
o 0  TO  bO 


gMiumtaHiUm 


47 


,  166 
If-  (  (  OH  KT  )  .  ANu .  t.1'4  )  ,  tic. . FMH  )  .  ANlJ.  (  ( 1 1  (KT  +  JL )  .  aNiJ . LMP ) 

.  I'lL.LMP)  i  00  1 0  49 
«n=f  .v 

I'U  I  w  ti.l 

49  vi=KitU/.*Uif.T)-»  VuAK 
50  10  hi 

5°  )f-U  IMKM)  .AHU.LMP)  .Nt.FMP)  .ANo.  (  (  M  (KM+ J. )  •  AND.  lMP  ) 

*  .ul  .  K  Ml  *  |  )  00  10  55 

IM  (  »M(K1  )  .AMu.EMH)  .Nt.FMP)  .A  No.  (  {  M  ( KT  M  )  .  ANU .  LMP  ) 
W  .l  iL  .1  HP)  )  O0  i  0  52 
oo  ro  t->i 

52  IF  l  V  hMi\  )  5^  t  54 1  54 

55  V  I  -Pi  ,Oa*0  (  KT  )  i=tfoAK 

00  10  hi 

54  \ZT=PiiOa*Vl>AP*U(KM) 

U)  10  hi 

55  i  F  l  Vu  Al', )  5h  t  59 »  55 

59  1  h  (  (  l  M  (  K  I  )  .  AMO. LMP)  .F.u.FMP)  .ANb.  (  ( I  i  ( KT  +  1 ) . aNL) .  LMP ) 

•l  .LU.LMP))  oC  10  55 

>/  1-[<|  I5'a*W;AI\*0(KT  ) 
oO  To  59 

55  v  T-K!  i5A*\hiAI'*U(KM) 

59  if-  l  (  (MlKll)  .ANO.OUi  )  .F.U.OUl  )  .OR.  (  (MlKT)  .AUu.OUT) 

*  .t-O.Owl  )  )  OC  To  51 

50  1 1  «  (  KM )  =fc.  |7,  ( KM )  -u  I  *  (  (  V  |-Vb  )  /PZ ) 

u)  lOlillNUt 

50  75  k-2  ,  rsMAXZ 
1 F  (  I  FoLN  ,  F.o  •  ° )  oo  io  u3 
92  V  [  =TF  V  M  V  (K)  H  V  (K+KMAX)  )  «*lvbOP*KIIOA 

00  To  (-ih 

bo  V  Fj  A  f J. — F  >,*(  v  lK)  +  V(KiKMAX)  )  *K|  lOA 

IF  (  Vt'Mp  )  54 1  b5 »  65 
t>4  VI  =V|:1mK*V  (  K|  KMaX) 

00  TO  t,r.> 

55  vT -VufcF!*V  (h  ) 

9b  oo  7  i>  L=2,LMAXZ4 

KT-K i L*KMaa 
K m-KT-KMAa 
v  J  =  VT 

IF  (Not,  i.  Flu.  9)  50  TO  o5 
9  /  V  'i-TF  V*(VihM)  +  v(Kl  )  )**hSUK*RF10a 

90  To  71 

oh  V[i/',i:-F  V*  (  v  (KM)  +V  (KT  )  )  *|\HOA 

if-  (  WaK)  69,70 , 70 
>9  V  i  -VohK+V  i  k1  ) 

V.O  TO  71 

7 A  V I'-VbAR*  V i KM ) 

71  1 r  ( ( ( M ( KM ) .ANU.LMP) .NE.EMP) ,ANu. ( 0MK1 ) .ANb.LMP) 

*  .Mi.. LMP))  o()  10  72 

00  TO  75 

72  I'M  (KM)=P51  (KM)+HHOA*V(KM) 

PM  (  i'.M  )  -P'bi  (  Km  )  -U  f +•  (  (  V  |-v/tT) /HZB(L)  ) 

Fo  0  v ■  i  -  I  a. 1  li.iL 

l-'O  Mb  L-2»LMAXZZ 
h,lM=L*KMA/v 
Up- 0.0 

uu  Mh  K-7 ,  KMAXZ 
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K  f-K  t-kMM 
K,/|=KT-kMAa 
Ul=UK 

UilAR-Fv*  ( u(  KM)  HJ(KT)  )*UB(K) 

U  (  (  (MiKh)  « aNU . )  .EU.EMP)  ,  AMU*  l  (MKT)  •Ai'iD.L.iP) 

■  lU.LMP)  )  oU  10  74 
oo  To  77 

IF  (  (  ( i»l ( KM+.l )  .ANU.EMP)  .NE.EMP)  .AND.  (  (MtkT+i)  .ANU.EMP) 

•  rjE.LMP)  )  00  10  7o 
ui.m.n 

on  fo  on 

1  Ip.-RHOA+Uf.oRHV  (isM+i ) 

to  on 

PK  l  M  ( KM  j  .ANU.EMP)  .Nc.FMP)  .AIllJ.  (  (MKT)  .AkD.EmP) 
.oL.LrtP))  uO  to  02 

IF  (  (  (MkMi  i  j  .aUO.FMP)  .NE.EMP)  .aWU.  (  <M(i\T+i,)  .AIIU.LrtP) 
.  ut. .  I.  i'ii1  )  5  00  TO  79 
uo  To  0n 

iKiiiuAR)  nn»cU,ni 
U|<-mi3H*Ui>AK+V(KM+l) 
ou  TO1  ocj 

W<-lCnO*i*UnAN*V  (KM) 
oo  to  an 

ifiuomK)  ao,nb»ab 

IF(  (  ( M ( l\M  h .1. )  .ANU.EMP)  .E&.tlMP)  .aNU.  (  ( M ( KT+i )  .AMU.EmP) 
.r.’J.cMP)  )  00  TO  Ob 
0K=kiiOA*UaAR*'/(KM+U 
>'0  TO  Oi» 

Oiv-PMOA*U|j,yR‘»:V  (Art) 

I  r  (  (  (  M  (  km  i-  1 )  .  Alio .  OUT  )  •  bQ .  OU  r )  •  on  .  (  (  A  ( KM-.1 )  .  AN  j  .  OU  i  ) 

•  o « oo  i  j )  oo  To  On 

Pbi.  (KM)=Pbi  (KM)  -0  f *  (  (Ur-UL)/(DK*iUk)  )  ) 

CONTINUE 

*r  ( MU)  .tOi,»  ?.0f>»rt9 
Ou  91  l=2,LMAaZ 
in  f  i  -i_*KMA  a 
Oo  97  K=2,KMAXZZ 
K  r-KWTT 
i\M=K  t-kmax 

ivd-K  'l-KMAX 

IF  ((  (Mi KM)  .ANU.trtr)  .Nn.FMP)  . AN;) .  (  (MKM+1)  .AND.tMP) 

. oL . EMp ) ) 00  To  90 
oo  TO  97 

IF"  (  (  iM(Kii)  .ANU.EMP)  .Eo.EMP)  ,AN|).  (  (M(K0+1 )  .ANu.EMP) 
.EO.LMP))  OD  TO  91 
Oj  TO  92 
o'90r=U(KM) 

oo  to  ov-, 
u-jOT"U(Kn) 

It-  (  (  (M(kT)  .ANo.EMH)  .Ed.EMP)  .ANl).  (  (ii(KT+1)  . ANiJ.EMP) 

•  t.0  .LMP)  )  uj  iO  94 
jO  TO  9b 

iff  oP-J(ivM) 

00  TO  9o 
I  TOP- J(K T) 

L  T A  ( KM)  -E  f /\  (KM)  +UMM  (  0  fOP+UBOT -T WU*U  (  KM )  )/ 

J2**NbOR) 


pfi 

M 


Kepiw— ,  .  ropy-  wrcy 
u««t  availab)e__c»yT  „w 

f-  IA(KM|_lr.  | i  V  (KM+i  ) -V  ( Ko+ U  (KM )  l-VtKtlJf? 

••=  (  Jtai  *  l\  )  +uZ  )  ) 

97  Cu.'in.JOL 

JD  l°L>  K-2  ■  Ki'iAXi 
J.)  1. 9L>  L=2»LM/vaZZ 
tv  I  -K  t-L, 

f.  i-K  r— \maa 

ti  (  (  1 1 1  (  KM  )  .  AiJu.LMiM  .NE.EMP)  .AiIl).  (  ( M  ( K  T  )  .ANJ.EMP) 
vmI.*-  ii1  )  i  v.»o  lu 
oo  To  t.nL". 

-<*  (  (  lH(KN!-l  )  .AUD.LWP)  .b.O.|,|.|P)  .aHu*  (  (M(KT-l)  .ANJ.t  ,P ) 
k  .Lu.L.-lP))  oO  lo 

(.7  0  r  j  i.  oq 

99  VllKI'-V(isM) 

uj  r»)  u>i 

100  /uLirT-  v  ( rs.-i-  A. ) 

101  <  (  iMlKMr.;)  .aMU.EMP)  •  L'i  •  t.r'il  ’ )  .AND.  (  (  M  (l\l>  I. )  .  AilJ.tLlP) 

■*  . L-.V'I.V-I'IP)  )  uO  To  2.^2 

uO  rj  [03 

ln2  IT  ~ o  {  K;  *, ) 

Go  To  J.l)4 

A  ''0  '<  Kui  I  r  —  0  v  K,-|  +  1  ) 

104  1  I  U  V  A  T  )  -U  ( KM )  )  /[)4t!  ([.)-(  VRol  II -v  (KM)  )  /Ui<IJ  (  A  ) 

(  U  ( I  J  -l )  -U(KM-,l )  J  /l)Zj  (!.)  —  (  0  ( isM  )  -  VLI  .F1  )  /oi’.B  (  a-1 
l'31  (kM)=P31  (KM)-UM*(  (  T|£MPK*I  ifj  (  K  )  -  TEMIJl.*RH  ( A-i  }  } 

*  /IuIVM<un)  >  ) 

.103  CouTJlllL 

1 0  6  Loi'iilivlUl. 

10  /  CouT  jl  i  Jut. 

00  2J4  K  =  <J#KMAA2 

t''3i  (UJ-Pbi  (K  H4*KMAX)-2.+PSi  (K  I-<3*K1V|MX)  +?..*PSI  (k+KMmX) 

ZO/f  Cj\ir_NUL 

UJb=t.l1S? 

OAl.L  PPI.Sit.PS) 

wo  1,20  1  —  i. »  NOkIij 

I-  ,<|A  1  -AMA A  1 1  AUS  (  F  (  1 )  )  f  PmX  1 ) 

U  'Ia1  =  AMAA1  (  Aub  (  U  ( I )  )  t  u,v|X  l ) 

12ft  v.1Al=Aiv|AAl  (Adb(  V  i  1  >  )  f  VioX  1  > 

fCLE-NC  YCLE+1 
•  1MC-T  ii-1L+oT 
If;  l  V.IavX)  UOt  UO,  lOO 
100  OirflPSi/V.-iAX 

110  Cuurii'lUE 

rF  (DT-UTM.AA)  1.12>  112f  111 
11.1.  JT-DI'MaA 

112  C  On  f  i  I'JUE 

MELAa-JLTa^I/iIOA  40i<tic;V|J/T 
i  r  ('ll-  i  i )  G ,)  TO  U  Jj 
If  ( N.jT h > Go  TO  119 
i r  (,  NO T  •  Nj.aP >  GO  To  115 
gall  augav 
vj  o  fo  1.17 

1- 1  *J  1 F  1 1 10 YCl-c:— .MDt-il*  I  )  Hbfliof  lib 
1 1 0  v.  f  >  L  i_  /  ol  L»  A  \l 

11/  Nj.'iP-'  ,\L  jL  . 

Ilj.vp  T-NDMPT +NUUMP 
Uu  if  (  .not . Ned  r ) go  ro  123 


CmuL  tuiT 
NLIjT- .  FAL-St: . 

00  TO  33 

•U- (No  fCLE-uEuTM)  33»  l?.l ,  121 

Nc.uTl  i-NEU  Ci'i+NEDIT 

call  ljit 

'->0  To  33 

caul  Loir 

L'A-L  A83AV 

C:auL  La  I  r 

IF  INC YClL-NEO  I'M) 337 » 806 » B0t> 

:louTM=NLO  fM+rtEJlT 

•  YFE  »;23»,JCYCLc. 

foni-ia  r  ( Irl  ,  »£j IT  AT  OCLE  » 

call  edit 

Call  AiJSA <j 

call  exit 

|<LTUUN 

LA) 


o-  iv 
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SubPOUTlUE.  PKES(EkS) 

COMMON  NvACfNGENf  UAC»  VAC,T,.il»T|wi2»  I' M3 
COMMON  ImC  y  CLE ,  NSTOP r  NEoTM » i'lEDlT  r  OPE 
COMMON  1  i,\|l,EDl  1M,EDD1  ,NPI1,NITEP 
Co!'. MO.  i  BE  f  A  ,  EPB2  f  UT ,  VMaX * UMAX » KELAX , CUT 
COMMON  bMi, . , EPbl t MUMAX , UulUf  VBTOr  UoNU  t VPHO 
COMMON  UN!  f  MU  t  KHOA  t  GR  t  GZ  •  G 1 1  SEC 
COMMON  V lio  IJ1 N » OKP  ,  QLP ,  N0P » OOP  ,  DUZ 
common  neap» mf:xpp,npakt*nuiv 

COi'.MOi't  NGp j.L  •  KMaX» LMaX, KMAXZrLMAA^f  KM'\XZ2» LMAXZZ 
Common  KuMn , LOMN , KUMX , tJ)MX , MESS ( 7 } 
common  i ckt t xmaa t * max »  cr  ika * CktRo f crtza t crt  Zo 
Common  ITESTr loZf lZ,GAMA,PGAS»PGAS^fPAMBfGASVfGAS\/Z 
C OlAMON  MF  ,  nG  » N-Il  ,  H  t  XG  t  HP » H  v  t  GG ,  FUDGE  t  Nl  AL  t  CRAX  f  UEi_Z 
common  r ( i:>o )  »z{i50)rRi,(  iso)  »Zri(  150) 

ComMGn  UI'U(.U’O)  fDtD  (  i5o ) 

Common  M(2bn0) 

Common  F-  (  2l.  no  )  #u(2S0:>  »E1A(2503)  t  V  (2300  fPSI(ZSOO) 
COMMON  UNoKXrZSOO) » DNOKY ( 2500 )  .  PNOKX(2S0O) »PNUHY(250<1) 
Common  lk,_.z 

COMMON  NC'LV.1.  rlNii'EV? 

C OMMC N/FLacI/TL  Ml 

C0MMCn/FLoS/T  1  l  rNt»MP»NLOT»NSTP,NPli., 

C  O'MMOl  i/  S 1  C«F  F /  ERRORS  r  MAmE  >  l.)l  VS  t  v'ChM  1  UCl  IN 
LOGICAL  TT  Y  r  NU MP r ME D T r hS TP , NP I M 
NEAL  M J 

1  Nl  FOLK  AimU  t  ORf  CN I  KFi » sUR  f  FoLL f  EMP  r  _>NU » 1M»  OUT  r 
+  F  R.SLF  f  f  iOSlP  »  EMPbNU »  Ou  t  COR ,  OK ,  GAS ,  AlvJ 

u A T  A  1nTK|-  »CMlRb»bUR»FuLLfEMPrUNiJf  l.JrOUT, 
f  F  kSLP  t  nOSlP  »  EIwPL/NU  » Ob » COK  f  uK » GAS » AKB/1  »2f4»{3»16»32# 

•1.  C4  f  1  ££» ,  2bo , 512  r 1024 » 2040 f  4096 f  0192  f  16304  r  327oQ/ 

GAIA  MASK  l »  MASk2»  MASK  or  MASt\4 1  MAStv5f  MASK6 1 

*  MASK 7 t MASfctt/0777777777757 f  0777777773777  f 

*  0777777677777 r 0777777777773 r 0777777777767 » 

*  0/7777 /737777f07777777o7777f 0777777767777/ 
i-i-3.l4j.by2b 

iiAST=43n?.2 
nPlS=4301u 
logical  Tlst 
Logical.  1  ,* » Tt3 » i  c »  j  v » 1  h 

r<LX=P 
filL  =  P 

CalL  VlL  1 2 » NIL. NILr filL»  1 ) 

1  MM=0 

hi  rtR-n 
K I  TER=NlTtU  +  I 
LNOHN=p . 

PNORM-P. 

UIVSJ =P 
TEMPSl=n 

00  44  L-2  *  LMAaZ 
r.  |  T=L  +  KI-iAa 
00  44  K-2,nM/\XZ 
r>F»-K 
l  h=L 

NT=KT i+KP 
h.»i— •  ll  “KMAm 


nwiiwaww:  m&mmmmmrrn 


in 


Nij-NM-KMAX 

If  i  (  (M(NM)  .AND. FULL)  .Lu.FUlL)  ,aN0.  (  (M(rtM)  .AlJU.(JD)  .NF.OO)  ) 
too  TO  4 

it-  (M(U|V)  .  t>.  43012  )toO  To  4 
1 1-  l  l»i  ( t'lN" )  .£0,43016)  00  To  4 

to'j  To  b 

to  1 V= ( o ( NM ) *Rb l K ) -U ( MM— i ) *Kb ( K-l ) ) / 

(i.(K)  *Dlx) 

OiV=ulv+ ( V (NM)-V(Nc) )/uZ 

to/  f to  29 
CO!  iT  ii'JUL 

iM  .AMD. OK)  .EC. Ok)  bO  TO  6 

too  T to  43 

LlLH-DR 

LlLZ=UZ 

i  I-  ( I'fiOkY  (  nF. )  -2  ( LP )  .  7 1 7 .  ft 

Lo=LP-.l 

too  TO  o 

continue; 

Lti-LP 

to  i  -LD*KMAa+KP 
toi‘i=lLu-.1.  )*r\MAX+toP 

(  K  (  kF‘  )  -PNOKX  ( N,*v, )  )  /UlLK 
<  -  (  ZD  (  LD )  -PNORY  ( Nfo )  )  /yLLZ 
IF  UKtoT-J.)  )  1 1  f  1 '»  i  i 
U1=U(N,M-J.) 
too  TO  12 
C’l-U  ( toT-l ) 
iMUIKD  ) X4r 1 Jr  14 
02— U  ( ) 

CO  TO  Jb 
0£-U(toT) 

I F ( U ( KN-1 ) ) 17» 16» 17 

Oo=0  l  NNi-1 ) 

Co  10  J.8 

0  j— U  ( toM-.l  ) 

IK  CUC  KM )  >  ,?Q»19,2C 
04=U(NN) 
too  TO  21 
UU-lHKM) 

Oh-(  .OiSajm  ,£>-SY)*Ul+(  ,0-bX)*(  ,5-SY)*U2 

Ut'-UPfi  . -to+bX)-i( .  5+SY )  *03+  { .  5-SX )  *  (  ,bFSY)*U4 

lr (PNOkX(hM)-R(KP) )  22,22,23 

tod-KP-1 

00  1 0  24 

M.j=KP 

toO=(LP-2)  +r\MAX+M3 

to,vi-(uP-l)*KMAX+totj 

Sa=  (  RB  (  to  Li )  -PNOKX  ( wi*l)  )  /jLLK 

S Y= ( Z (lP) -PNORY (NW) )/UuLZ 

IF(^/(iSNi))  26,25,26 

n=VtoJM) 

00  To  27 
v'l-V(KM) 

IF  (  V(tofJ+l  )  )  29, 20 ,  29 
Y  2'-  */  (  c4m  ) 
j J  TO  30 


29 

3n 

31 
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V2-V  ) 

1  r  (  V  ( . i. U 1  )  32,31,3:2 
.'3-7  { Nu ) 

00  TO  33 
32  <3-7  i i\j) 

3o  U  (VtivOH)  )  35,j4,33 

34  V4-ViiJu) 

00  To  3f> 

3b  V  4 — \‘  (Ku+2. ) 

3t>  W-  (  ,^'jXiM  .  5-bY  )  +  Vi  +  (  .5-SX)*(  ,  5-SY )  *v2 

H’-VP*  (  ,‘>  +  3X)  +  (  .5fSY)*v3+(  ,5-S/)  M  .5+S(  )*V4 
Lol=U;-iOI<XinVl)+UlJ+0H0RY  (NM)  *VP 
3o  OlV=L>OT/Ui< 

30  lh (A03(DIv) ,LT.10E-20)ulV=0.0 

T  Li',lf’-r<LLA;(*L)l  V 

iMUiVSX.ol  ,Ab5(DIV)  )Go  TO  7022 
Oi VSl-AHS l L I V ) 
i’.>1L.0(.' “I\ 

LmLOC-l 

V'22  P(iMN  .)-P(NM-TE>iP 

4p  if  (  (MINT)  .AND. OUT)  .EQ.OUT)  GO  TO  41 

00  to  42 

41  P(NM)-f>. 

I  L  I'.T  0  a 

42  ;*OPN-ENU|N'i+TEMP*VEMP 
Pi;ul<M=PNOf«N+P  (  NM )  *P  { NM ) 

43  CaL.L  Vt-.L  ( 1 , MM ,  K , L,  0 ) 

44  CONTINUE 

00  45  L=2 , LMAA2 
Kl-2-i  (  L'*l  |  *KMAX 

Pirt-1 )=P(KL)-GR+UhOA*(H(2)-R( 1) ) 

45  CONTINUE 

00  46  L=2,LMAX^4 
Kk-L*KmAX 

*  ( KR )  -P  (  K(<-1  )  +GR*KMOa*  ( R  < KM  AX )  -R  ( KMAX2 )  ) 

46  CONTINUE 

00  47  K=2,fsMAXZ 
k(=Kh  (LMAa<.-1)*KMAX 
Kl T -K+LmA/Z*KMAX 
KtJ=K  l-i\riAX 
NuL,— K 

P  ( i\TT )  =P  ( h  T) 

IM  (M(K)  .AND. OUT)  .EG.OuDOU  TO  47 
H(M5ii)=P(ub) 

47  continue 

CALL  VEL ( l , MlL, NIL, NIL, 1 ) 
f  RNOP=SOKT  (EITORM/(PMOKM+. 90000 Jl)  ) 
tkisOKS=EI’,<UR 
OIVS-JIVSI 

type  e>7,ncycle 
it  PE  Oc, 01  VS 
T  r  PC  7P23»  KMLOC , LMLOC 
I p  2  3  PyiifinTUM  ,  »aT  K-*,I3,',L=»rI3) 

lyi'E  4o,KkkoK 

bt  PoKMA'i  ( IN  , ’CYCLE  ’,13) 

So  FORMAT  (1H  , ’MAX  01  VEKGENCF.=  '  ,F  ) 

4o  format  an  ,  •ekror=,»f> 


n  r.  r  n  n  n 
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SUl'i'PUTlNL  V L  L  l  N  A  i » NA  2 ,  N  A  3 » N  A4  #  NA  5 ) 

C C’i',i IC'N  IMVaC,NGEN»UAC#VaC,TM1,TM2»  1M3 
CoMMlm  IJCiCLE ,  NSTuP  ,  NEdTm#  nEl?IT»  OPE 
COMMON  1  l,iL,UJ|  IM.EPDI ,NPIT#HITER 

IV  |)K  1A #LP52#DT  »  VM/\X,  UMAX#  RELAX#  CUT 
L OHMUi.)  SM i n ,  F.PSJ ,  hbMA  a # Ub  To »  VB TO #  Ul. ND #  V  Bi  lu 
1  UMMC‘N  UM  ,  ,v>U  »  kl  K)A »  OR  »  G/'  » G »  1SEC 
C  UI-IMOi  i  V 1  |,j #  ul  N  #  uKP »  nLP ,  NbP  ,  DDK ,  Dl j/ 

LuMMPN  NE,;I ' ,  NEXPP ,  ImPAk  j  » i'lLl  I 

Horn  D ,  KMAX,  LM„X ,  KHAX2 .  LMAaZ . KHWZ.  uMAXXZ 
vt,hf10"1  KDi!>  i  »  LUMN  #  MjMX  *  LDMX  ,  mFSS  (  7 ) 
loinPPM  I  Civ  I  r  XMaa  #  VMAXi  CPTKa  *  CKTRb » CRT/A  #  CRTZiJ 
r  v !  -LS  GAMA ,  PuAS. PGASZ # PAMB #  brtSV #  BAS „ X 

0f'"10i<  Nh  r  »ll,XG,|jH,ITl/,GG,FUDGE,UTAL»CRAX,DELZ 

(P)MPOiv  |<  l  ISO)  #  l  ( ISO )  #  Kb  ( J.5P)  red  (ISO) 

C v'Mf'.Oi i  ui<b(  l.s  j)  fUiBU'jO) 

(■oi'lriofi  Ml  2500) 

CohMBb  P  (  -son  )  r  L»  <  2500  ,  FTA  (  2500 >  #  i/ 1 2500  >  , PSI  < 2500 ) 
UviNOi  v  DU^.X  (  2500 )  ,  DNOiO  ( 2500  )  , PHukX  ( 2500 )  r  PNUP  Y  ( 2500  ) 
CuMMOli  BH,uZ  ' 

Compos  noevi#nuLv2 

Com  Ml;  I  v/K  LmB.VFI.AG1 

CUKMUI./F  l-BS/  1 1  7  r  NBMP»  NtDi  t  NSTP,NPIM 

Common/ S  I  uF  F'/C  RRORS#NAmE#DI  VS#  VCHM»UCNM 

LOoICAL  f  i  T  »l'IUMP»tiE[)T»NSTP»l’JPlM 

I'L/'iL  MB 

In  If.BLp  Anb#OR»CN  I  l<B  r  SuR  t  FuLL #  EMP » dND  1 IN# OUT# 

KELP#  MObLP » EMPyNu  #  Ob » COR » uK »  baS#  AKB 
i  A  l/i  H  i  I KF  »  CN1  RB »  SUP  #  FbLL»FIMP»oMU#  1,7,  uUT  , 

F  l  SL.P ,  hOSlP  #  CMP.jNb  ,  OB  #  COR  ,  0K ,  BftS ,  AkU/  l  #2, 4,5#  16#  Bp# 

.b  /  !  I  I"u •  5i?- »  i^24  #  204P »  4C96  #  0192  #  16304  #  32760/ 

CA  A  ,1/vSKl » MASK2 »  MASKS#  MASrs4  # MASK3»MASK6  # 

MASK  7 #MASko/07 77777777757# 0777777773777# 
v { !.  '’777u77777  #  077777777 7?73 » 0777777777767  # 
o ?  777777377  77  #  0777777757777 » 0777777767777/ 

P) -3. 1415926 

KSIG-INimI 

KmzNA.2 

K-IJA3 

L-!  vA4 

Kp=NA5 


r  V“,5 

IMIS  ROUTINE  COMPUTES  ALL  BF  The  CELL  VELOCITIES. 
INL  PkESbuKE  GRADIENTS  ARE  CALCULATED  FOR  BOUNDARY 
h.r.^SONto  LOCATED  AT  ThE  MID  POINTS  OF  ThE  LABRANbe 
BooPuaRT  SuGMENIS.  APPROXIMATE  LINEAR  INTERPOLATION 

Lv  U.scL‘» 

LOoICAL  I EST 
VmlAX-C  ,  l> 

LM/.=L,»iaX/ 

iNr,/-KMAX/ 

If  (KP.eu.P)GO  TO  73 

UChM=0, 

v'CHMrO. 

DC  39  u=2,L.Mx 
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K  i  1  -L*|\MAa 
Du  09  K=ufKMZ 
Ki-KlMT 
kM=K  I  -KMAx 
KR-KM-KMAx 
k  i  /.-K  r H<MAA 
00  TO  7'r 
Ki=Ki*ifKMAA 
I-.  o-KM-KMAx 
r.  i  ^=K1  j-KMma 
aMZ=K 
I.M2-L 

j-h  <  (  IN l KM)  .  AMU.  FULL)  .  tu.FULL)  ,oR. ( (  ( M  ( KM )  .AND. BUR) 

.  c..u.T>Uk)  •  AND •  (  (FI  (KM)  . AwD.COrO  . UE.COR)  )  )  b 0  TO  1 
00  I V  39 

b  bOMPCNF.Ill  OF  VliLOCIIr 

IF  l  (i'1(KM+l)  .ANlJ.Liljt))  .Eu.BNO)  GO  To  20 
IF 4  (  I  M ( KNi+.l. )  . ANU.fc.MP)  •  E 0 •  E. ivi P )  .OR.  (  (M(M+1)  .ANU.COk) 
•Lo.CUR) )  00  1 0  3 
00  TO  b 

oo  ro  i?.o,4)»N3io 
0  ( KM )  -0  (  Ki*i  )  — uh*uT 
Go  TO  20 
/«C-K  l  K  ) 

if  (  (  (M(KM)  .AND. or.)  .EO.OK)  .AND.  (  (Mlr\M-i)  .AND. COP.) 

. L.0 . 0 OR  )  )  uO  TO  b 
bo  1C-  7 
AC-F’NORX(KM) 

XA  — K  ( i\+  i  ) 

11-  (  (  (M(KM+J.)  . AND. OK)  .bu. OK)  .AND.  (  (MKV+2)  .AMD. COR) 

. c 0 , C OR ) )  00  to  3 

oO  TO  9 

M=PNOKXtKM+i) 

HA=R(iniV,) 

If  l ( IM(KM) .AND.oK) .EO.OK) .AND. ( (M(KT) .ANO.COK) 
.cU.COR) )  bO  10  1C 
Ob  TO  11 
F2=P(rsN) 

FJ.=P(KU) 
i  2-PMORYluM) 
r lsZlL-1) 

00  TO  13 

IF  (  (  M(KM)  .AND.OK)  .ED. OK)  .AND.  (  (rl(ivd)  .AND. COR) 
.aO.CoK))  bO  »0  12 
00  TO  1A 
R2-P(K1 ) 

F'1=p(km) 

1 2- Z ( Lt 1 ) 

M=Pi'lOKY  (KM) 

i»LF  =  lP2-Pj.)/C»2-Yl) 

ORD-Pl-DLp*Yl 

XC=R(K) 

F'A=5LP*Z(L)+0kj 
Po=F’  ( KM+ 1 ) 

IF  (  (  (M(KMii)  .AiiD.bK)  .F-w.OK)  ,ANj.  (  (MKT+1 )  .AND. COR) 


•  t<J. COR)  )  v,0  TO  15  A/ 

Go  TO  lr> 

HgsP C KM* 1 ) 

Hl-PUo+l ) 

Y  2=PNOKY  ( KH+1 ) 

yj-Z(l-i) 

00  10  lfi 

IM ( (M(KMfl) .AND. OK) .tG.OK) .AND. ( (M(KU+1) .AND. COR 

•LO.COR))  GO  )0  17 

Oo  TO  .19 

P2.=P(KT*J.j 

i  i=rjtKM+i) 

t2=zil-i1) 

V.l=PliORY(K.M+l) 

SLf’=(P2-f»l)/(  V2-Y1) 

C'kU-P  L-GCR*Yi 
„A=R(K+1) 

Pu-SLP*Z (l)+OKu 
UoLO-U(KM) 

G(KM)=ETA(KM)+Ul*<  (PA-PB)/(XA-XC)  ) 

11  i  KM )  -J  ( Kh )  /KhOA-OR*U  T 
OCM=At» ^  ( OoLO-U  (  KM )  ) 

OUiM=AMAXj.(UCM»OCHM) 

v  COwHoiiEiJ  Oh  VELOCITY 

Ih  (  (MiKT)  , ANU.UHD)  ,EQ.[}N|J)  GO  |0  39 

IF(((HCKT  )  »ANu^t>(P)  .EQ.EMP)  .OK.  (  ( M  ( K  T )  .AND. COR) 

oo  TO  24 

00  TO  (39,23) tNSXfc 
V(KM)=V(Km)-OZ*oT 
00  TO  39 
YC=Z(L) 

ih(  (  (M(KM)  .AHU.uK)  .EQ.OK)  .AMD.  (  (M(rxb)  .AND. COR) 
•LO.COR))  00  TU  25 
Oo  TO  2b 
YC=PNORY(wS) 

lA-Z(L+l) 

IF ( ( (N(KT) .ANU.OK) .EO.OK) .aND. ( (M(KTZ) .ANU.COK) 
•to.COk) )  GO  TO  27 
00  TO  2» 

‘.A=PNORY  (kT  ) 

HA=P (KM) 

IF  (  (  (MEM)  .ANU.OK)  .EQ.OK)  .AND.  (  (M(KM+i)  .AND. COR) 
•LO. COR) )  GO  10  29 
CO  10  31* 

F  2sP  ( i\i»i ) 

F  J.-P(Km-I) 

X?=PNORX(KM 

X J  =R ( K-l ) 

CO  10  3? 

Ir  (  (  ( M  ( KM)  .  Al'iU .  OK  )  .EQ.OK)  ,  AND,  (  ( M  ( r\M-X  )  ,  ANu.  COR) 
•to.CwR) )  yO  10  31 
00  TO  33 
P2-P(M+1) 

Pi=P(KM) 
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X1=P|<C«X'.m4) 

X2=K(*»-1> 

32  SlP=(P'2-P1> /(X2-A1) 

0,'L>=Pl-bLP*Xl 

a-i’(L) 

P;\=SlP*K(k)  U»KJ 

33  hjSPlKT) 

li-  (  (  (M(K1  )  .  ANU.OK)  .ECi.oK)  .AND.  (  (M(KT  +  i  )  .ANJ.COK) 

*  .tlP.COK))  00  TO  34 
uu  TO  30 

3o  P?.iF>(l\T) 

Pl-P(KT-l) 

>^=.Pl%0PX(Kl  ) 

>.J=R(is-l) 

00  TO  37 

30  J  j-  (  (  ( iv| ( K T )  .ANU.oK)  .EU.OK)  .AND,  (  (M(KT-D  .AnD.COK) 

*  .  r.u.C-OK)  )  oO  TO  oG 

OO  Tu  oH 

30  »7.=FMK1  +  1) 

P1=P(M  ) 
aJ2=R(K>JL) 

AJ  =PiiOKXUT ) 

3  7  0lP=(P2-P1)/(X2-XD 

UKB=Pl-i»LP*Xl 

Y  A-ZU.Fl) 

Py-SuP*i<  (  K  )  +OKL) 

3tJ  VOLU=V(KM) 

v  tKM)=PSi (KM)+Ol*( (PA-PB) /( YA-rC ) ) 

V (KM)-V(Kh) /KHO„-OZ*DJ 
VwhrAJi»(Vo«-D-v(KM) ) 

VChM=AMAXl(VCh» vCHM) 

OMAX=AoS(u(KM) ) fAUb(VluM) ) 

V  mAX=H  V*  ( AtiS  (  VMAX-UYAX )  +VMAX+Ui»|AX ) 

39  CuNliNUL 

C 

C  I'bL  f.ObLXP  H<’UNuAu7  CONDITIONS  ON  Ot3  C^LLb... 

C 

IriKP.tO.C JGO  TO  73 
CALL  NOSLih (NIL. NIL. NIL) 

00  TO  70 

7b  CALL  IiOSL1P(KM,K»L) 

7 1)  CONTINUE. 

C 

C  taOOMDARY  CONDITIONS  ON  VELOCITIES  AT  EDGE  OF  MESH. 

C 

1,0  oO  (\22.fvNAXZ 
h|=M  (lMAX4-1)*KM/'.X 
KTd=KT-KMaX 
KT1=KT>KMaX 

kb=k 

lsiT=i\J+KtoAX 

IF ( ( M (K i T ) * ANl • X N ) .EO.iN)  00  To  49 
oo  To  9 0 

49  V(M)=VIn 

v  ti\TT  )=V  (kT  ) 

KMT  )=n. 

Go  To  94 


50 

51 

tic1 

b3 

b4 

bo 

bo 

S7 

bi> 

bv 

o»* 


61 

bk 

6b 

64 

66 

6o 

6  t 

66 

o9 


I  Reproduced  from 
1  best  availabi*-  copy, 

IF  (  (MUTl  )  .AMU. OUT  )  .EvJ.OUl )  GO  TO  bi 
Go  1 0  52 

V  ( r\  T )  =  v  t  /.  1  o ) 

G*(r\l  I  )=U(Kt ) 

VtKlT )=V(^Tf) 

GO  TO  54 

1M  (M(K1  T>  . ANo.UNO)  .Fw.RWU)  GO  TO  53 
00  TO  54 

V  (rsT)  =  P, 

b(Kl 1 )=U(K1 ) 

v  (KTT  Jo-V  ii\Ib) 

let  (t-.(Kl»)  .ANO.li'j)  .to, IN)  00  To  5b 

00  TO  bo 

V (*B)=VIN 
U(KD)=f. 
gj  TO  t»l» 

IF  (  ( Ni ( Kf*  1  .AhO.OUl  )  .Eu.oUT)  GO  |0  57 
GO  10  bfi 

V  0. )  =  ( PS1 ( K ) -U T*P ( KBT I /DZti {1 ) ) /RHOA 

i»  c  k  )  =u  ( Kb  r » 

GO  10  (.0 

iM  (W(Kb)  .AMD.ONO)  .F0.6NQ)  GO  10  5° 
go  TO  oO 
v ikb)=n, 

U(Kb)=WKbT) 

GouTloUt 

LHi  70  L=1»LMAX 

K|n=(L-.U*kMAX 

L|-;=KK  +  kMAac 

l.L=2»Kis 

Ir l (M(uL-l) .AND. IM) .KG. IN)  GO  rO  61 
GO  To  b'l 
G(lL-1)=U1n 
v ( lL“1 ) —0 1 
GO  IG  6n 

If  ( (M(LL-l) .ANO.OU1 ) .tu.OUT)  GO  TO  63 
G'J  10  t  ,4 

l'(LL-l)=U(Ll.) 

V(LL-1)=V(LL) 

GO  IG  hi* 

IF  ( (H(LL-i)  .ANU.oNU)  .bvK.yNU)  GO  TO  o5 

GO  i  0  66 

0(  t_L-l )  =0 . 

V  { LL.-1 )  iV  ( LL ) 

GO  TO  ?2 

IF  (  (MIlK+J  )  .aNO.IIm)  .Eg. IN)  GO  10  67 
GO  TC  t,U 
0<LR)=l.HN 
0(LRI  l)=U(l.R) 

V  iLRUUViLR) 

GO  TO  72 

IM  ( M ( LR+  i )  .Ailu.OOT)  .tu.OUl  )  GO  10  69 

G u  To  7 0 

1»(lR)=0(Lk-?.) 

0(LRU)=0(uR) 

V(LRll)=V(LR) 

GO  TO  72 
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it-  (  .ANL.UNO)  .tO.BNL))  00  TO  71 

uC)  1  u  7 % 

OiLkj-n. 

UiUR+l)=-0<LH-l) 

V<UUl)=ViLR) 

C  OUT  l  NOE. 
kt’l  Ui'i'4 
LUU 
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IiOlRC'j  1 1  i4bl  VLLbb<llA6*NA7»Hrt«) 

U.KrtOu  NV„CfN0£li»UAC»VAC,  flU,i,*|2,T>i3 
C  o! AC .  i  hC  i  ClL  » NS  I  uP ,  KEuTM  » uEOI  T  i  OPE. 

0 uMt  \;i  T I ,vb  ,  Kb  T 1 M »LDb  T  ,NPIT» MI  1 EU 
Ct>f  NlUil  LiETA»tPS?.»bT»VMAX,UMAX,KELAA,CUl 
OONMOt i  SMlloEHSlfhDMAX*UtjTu*VijTO» UoMQ t  * BNU 
0  uMMON  UM  t  MU  t  Kt  luA  t  OR  t  Ga  t  G 1 1  SEC 
Cbf  iMIt«  ViiirUXNf  UKP  *  DLP ,  NdP ,  DDK ,  DUZ 
COMMON  NEaPhIEXPPfNPaK  1  »NDIV 

COMMON  I K>H ID  r  KMAX  #  LMAX ,  Ki-IAxZr  LMAX4 » KMAXZZ »  LMAXZZ 
COMMON  KUi  ii  i ,  LUMN » KDMX .  LOMX ,  MESS  (  7 ) 

common  ick  r » xmax»  ymax»  cktpa  »ck rRo »c.rt za »cktzu 

COMMON  1  lLbT»I0Z»lZ»GA|viA#PGAb»PGAb4»PAMB»0ASV»oASvZ 
Common  i  IF  1 1  JO » Ml  I  1 1 1 1  XG » 1  |H  1 1 1  v  » GG » FUDGE. » NT  AL  t  CBAX »DEl.Z 
common  h  j*»o)  t Z(  iso)  »Kt>(  iso  »zu(i5D) 

COMMON  L»kuiir>0)  >Utb(l50) 

COMMvN  Ki  ( » 

Common  rip.bou)  ,eva(2!hf0)  »v(2Sjo  rpsi(25oe> 

COMMON  UNokX  1 2bC0 )  »  DNOKY  '  2bOC >  .  PrJOKX  { 2liOC )  * PNOKY  (  2500 ) 
COMMON  uK,OZ 

Common  Mot.v.i  »nokv2 

COMMON/ F  LmE'I/F  LmOI 
OomMuN/FL^o/1  1  II  .NLrtPfNEC' T  »  uSTp ,  NPIf  i 
LOGICAL  T  1  Y  #  NEo  I  *  HUMP  t  1-iSTP  . I  IPlM 
KlAI.  mo 

IN  l  EGL|<  A 1 .0 » OP.  t  C  II PB 1  SbP » FULL » BMP  r  uNu  1 IN  f  OUT  t 

P  KSLP »  nUSlP  » EMF  oNL)  t  Ob  » COP »  OK »  oaS»  AKB 

L'A  f  A  IN  TPp  » CN1  Pu  t  SUR  f FULL  t  EMP » rfNU  t  IN  t  OUT  r 

[  KSLi  » uObuP .  EMPtlNL ,  OB .  COK » OK »  OaS  t  AKU/l » 2 1 4 1 0 1 16 1  32 1 

Oi. 20,250*  512. 1C24, 2C4flf  40P6»U192»  163B4,  D276G/ 

OA f A  MAbKl t MaSK2 t MA5KO > MASK  4 1 MASKS r MASK6 1 
MAbr.7  »MASr,b/0777777777757 ,0777777773777, 
0777777b77777r0777777777773»0777777777767» 
0777777737777 »07777777b7777»0777777707777/ 

Pi-o.  1A  U>y2b 
Mi=N/\o 
K=NA7 
LzuAb 

LOGICAL  lt.iT 
LM/.— LMaXZ 
KMZsKMaaZ 

if  (KM.iJE. 0)GO  TO  .10 

bl/  1  l.:2»i_MZ 

KMM-L*KM<\a 

Lo  »  K=2»nMZ 

K  r=K-lKMM 

K.v,=K  T-kMAa 

Ku=KM-kMaa 

00  TO  11 

M=KM>KMAx 

KLi=KM-aMaa 

KM<.=A 

Lr  U.-L 

OtNTINUL 

1 F  H  I M ( KM  1 . AND . SOP) , Eu . SUP ) . OK . 

(  (Mr.M)  .AiJu.UK)  .EU.OKI  )  oO  TO  ^ 

00  To  1 
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Z  IM  (  .uuT,  (  (  (M(KM+D  .ANu.EMP)  .Eli.EMP)  .OR. 

*  (  (h(r\l  )  .ANU.EMP)  .Eoi.'IMp)  .OK.  (  C ( KB )  .ANU.EMP)  .EO.EmP)  )  ) 

M  .AND.  (  (  (M(KM-i)  .AND.KMP) .Eu.EMP) 

*  .OK.  i  (m(M-.I)  . auJ.COR)  .EG. COR)  )  .ANU.  (  (MKM-1)  .ANU.DNU)  .Nu.bNn) 

*  .AMD.  I  ,NO|  .  (  (  (M(KM+1)  .aNO.COK)  .EU.COK ). OR . (  (M(i\T)  .  r\ND. 
i  COK)  .Lo.CuU)  .OR.  (  (M(Kri)  .AMO. COK)  .EU.COK)  >)  )  GO  TO  5 

0 0  To  4 

3  U(kM-1)=K<n)*uRM  (V(KM)-v(KB))/(Kb(K-l)*DZ)  ) 
l'tKM-l)=L(KM-l)+U(KM)*(RB(K)/Ka(K-l)) 

00  TO  1 

4  IP  (  (  .ImuT.  i  (  (M(KM-l)  . ANU.EMP)  .Eu.LMPJ.OR. 

i  l  IK(K[ )  .ANu.EMP)  .Eu.EmP)  ,0K.  (  (M(MJ) .ANU.EMP)  .Lu.EMP)  )  )  •  ANJ • 

*  l ( (M(m>+) ) .aKO.LMK) .EU.EMP) .OR . ( ( M (KM+1 ) . AND .COR ) .EU.COK ) ) 

4  .AND .  (  (M(KM  D  . ANU.RNu)  .NE.bMP)  .ANu,  (  .NOT.  (  (  ( 

*  M(KM-i)  .Ai'-lo.CoR)  .EQ.COh)  .OK.  (  (M(KT)  .AND. COK)  .LO.CuK) 

*  .ok.  ( < ( kl> )  .mI.j.coK)  .Lw.cok)  ) ) )  oo  ro  5 

00  TO  e. 

b  U ( i\M)  -U( am- 3.  )  •+  ( Kb  ( t\- * )  /Rti (n )  ) 

OtKM)=U(KW)-K(K)*L»K*(  (  w  (KM)-V(kES)  )  /  ( Rd  (  K )  *l)Z )  ) 

00  10  1 

b  IP  i  1  .NOT  .  i  (  (M(KM-J.)  .ANu.EMP)  ,Eu.tMP).OK.  (  (M(KM+1)  .ANU.EMP) 

*  .(LO.LMP)  .OK.  (  (M(KT  )  .ANu.EMP)  .Eu.EMP)  )  )  .AliU.  (  (  ( M i Kb )  .AND. 

*  t  viP)  .lw.ErP)  .uR,  (  (M(Kri)  .ANU.  COK)  .Eu.CU<<)  )  .AND. 

*  l  (M(Kd)  .ANO.dNj)  .NE.GlMu)  .AND.  (  .MOT.  (  (  (M(KM-l)  .AND.oOR) 

*  .EG. OOP)  .  Jr..  (  ( M  ( KM+1 )  .AND. COR) .EG. COR)  .OK. 

4  (  l M ( is T  ) , ANO.COR )  .Eu.COk)  )  )  )  60  TO  7 

fc  o  TO  b 

7  V(KU)  =  v (kM)+U£'M  ( Kb (K)*U( KM) -Ko(K-i )*U (KM-1 ) ) 

+  /(R(K)+DK)) 

00  TO  ] 

«  Ir ( ( .NOT. ( ( (M(KM-I) .ANU.EMP) .Eu.EMP).OK, ( (M(KM+1) .ANQ.LMP ) .EG. EM 

4-  .O'.  (  (M(Kb)  .AND.LNiP)  .Eu.EMP)  ) )  .AMU.  (  l  ( M (K T )  . ANU.EMP)  .EGl.LMP ) 

*  .OK.  (  (M(KT)  .ANJ.CUK)  .C.O.COR) )  .ANU.  (  (M(*T)  . AMO, GNU)  .NE.BNu) 

*  .aNO. I .MOT . ( ( (M(KM-l) .mNO.COR) .Eu.COU) .OK. ( (M(KMKl) .aNU. 

+  COM  .EU.COK)  .OK.  (  (M(Kli)  .ANb. COR)  .EG. CoK)  ))  )  GO  TO  9 

00  TO  1 

9  V  ir.M)=v  (KU)-UZ*(  ( Kb(  K)  *IJ(KM)-Ru  (is-i  )»U(KM-1 )  ) 

*  /(U(k)*DK)) 

1  COMTINoL 

KlIUKn 

EhU 
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SujKOUIINl  NOSLIP (NAe^NATfNAa) 
common  nvac » ngen* uac » vac ,  tm.i , tm2* tm3 
common  nc ycle » nst up , neuTm * icon * ope 

C  OMMOi'l  T I  Mb *  F.U  I  I M ,  EDO  T  ,  NP I  T ♦ N I  TEH 

common  beta » eps2 »ot * vmax , umax . relax *cui 
common  smin,epsi » numax , uaTo ♦  vbto* Ul»nd *  vbnd 
common  um ,  mu  » khoa *  gr  *  gz  »  g  * i sec 

COMMON  VIN»UIN,UKP,DLP*NBP*D0K,DDZ 
CoMMOl i  NEXP » NEXPP , NPAIM  #  NU I V 

Common  ngrio»max,lmax,kmaxz*lmaxz»kmaxzz*lmaxzz 

COMMON  KDMN , LUMN * KUMX » LDMX , MESS ( 7 ) 

common  ici<t,xmax#ymax»crtra»crtro»cutza»cktzb 
common  itest* ioz* iz*gama,pgas*pgasz*pamb*gasv,gas^z 
Common  nf  ,ng»nii  »n»xg»hh,hv»gg,fubge»ntal(crax»dElZ 
common  iuiso)  *Z(  150)  *kb<150)  »Zii(i50) 

Common  URui  iscd  »ozb(  iso) 
common  m(25ooj 

Common  P(2b00) ,U(2o00) *ETA(2530) »Vl2bOO) *PSI (2500) 
COMMON  UN0KX(2500) *DNORY<2509)  *PNOKX(2500)  *PNOKY(2bO,l) 
common  ur,uz 

COMMON  NUEV1*NUEV2 
CoMMON/FLaGI/FLAG.I 
CoMMON/MUTN/MoTIm 

C  OMMON/FLoS/TT  Y  »  NUMP ,  N£D  T  *  NSTP ,  NP  I M 
C  OMMON/ST  UK F/ERRORS * f )AmE  #  0  X  VS »  vCHM  *  UChM 
CoMMON/MOuSE/XNXf  INY»  IN3W»SWSTaT 
common/look/pmx*  umx*  VMX  *  PMXi »UMX1 » VMX1 
COMMON/Nx/UTMAX 

UOOICAL  tty,nump»nedt*nstp,hpim 

LOGICAL  NK1B 
REAL  MU 

1  Nl  EOEr  ANO *  OK ,  CN IKB , SUR * F  ULL » EMP *  uND  *  IN,  OUT » 

*  F RSLP »  NOSlP  » EMPBNU » OU * COR * OK  t  GAS * AR|3 

oat  a  an  rRi- »  cn  i  Rb  »sur,  full  *  emp*  bnu  *  in, out , 

*  Fp.SLP  » lAOSLP * EMPUNU , OB  *  COR *  OK  *  OaS  *  AKB/ 1 »  2 * 4 * 8  »  16 » 32 » 

*  u4 » 128, 25b*  512*  1024*  2043*  4Q96»0192»  16384  *32768/ 
data  MaSK1»MaSK2»MASK3,MASK4*  MASKS*  MASK6* 

*  MASK7 *  MASK8/0777777777757 *  0777777773777  * 

*  0/77777o77777»0777777777773»  0777777777767* 

*  0/77777737777»  0777777757777*  0777777767777/ 

INTEGER  ES»EC 

Jrt=UR/2. 

LC-4112 

LS=4.lOn 

Km^NAG 

KzNA7 

L=NA8 

IF  (KM.IC.O)GO  TO  95 

lmz=lmaxz 

KM^.=nMaXZ 
oo  mo  L=2»LMZ 
KT  rn(L-l)*KMAX 
UO  100  K=2»KMZ 
r\;.,=KTT+K 
v^O  TO  9o 
LM4=L 
i\MZ=K 
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9b  IHMCKM+JL)  .E0.32.AND.MiKM)  .EQ,B)GO  TO  9fi 

yO  TO  99 
9ti  O(kM)=0. 

VIKMI l)=-V(Kh) 

GO  To  100 

99  IF(  (M(KM)  .ANO.OB)  .NE.OBJGO  TO  100 

1  ANrSIvjN (l)NORX ( KM) /PNOKY ( KM)  »-UNORX ( KM)  *DNORY  (KM)  ) 

I F  ( ONORY  ( KM )  .  E 0 . 0 . 0 )  TAi  J=  10**20 

KT=KMFRMAX 

Kb=KM-KMAX 

1HM(KM>1j.EU.CC)GO  TO  101 
IFIM(Km-I)  .EG.EUOu  TO  102 
1F(M(M  )  .EU.EOGO  TO  103 
iMM(Ktt)  .t<J.EC)GO  TO  104 
IFIMIKM+1) .EG.SCJGO  TO  101 
ini  Xo=(Zt3(L)-HM0RY(KM)  )  /  TAN-F 'mORX(KM) 

IF  (M(KT)  .EU.EObO  10  110 
IF  (M(Kt>)  .LO,EC)oO  TO  111 
ALl=KB(K)-PNORX(KM) 

AL2=(3R-ALl 

U(KM)=-(U(KM-1]*AL1)/AL2 
IF  ( T/\N,GL .  1P**1C )  GO  TO  112 

IF ( ( ( M ( K  T  j • AND. FULL). Eu. FULL). aNU. I  XU. GT.Ud ( K ) ) ) GO  TO  114 

ALl=K(K)-XU 

Al2=DR-AL1 

V(KM)=-(V(KM-1)+AL1)/Al2 
GO  TO  100 
122  /  (KM) -0,0 

uu  TO  10U 

110  IF  (ABS(TAN)  ,LT.0.2L>)GO  TO  103 

Yli TaN* ( K ( K ) -PNORX ( KM ) ) +PNORY ( KM ) 

YL=YW(L) 

Xl=YL/TAN 

ali=uh-xl 

Au2=()H+XL 

U(KM)=-(U(KM-1)*AL1)/Al2 

ml1=JH-YL 

Al2=DHfYL 

V(KM)=-(V(KB)»AL1)/AL2 

go  ro  ioo 

11.1  Y:i=TAlU(N(Kl-PNORX(KM)  }+PN0RY(KM) 

YL-Y1”2(L) 

Xc=YL/TAN 

ALl=OH+XL 

Al2=0H-XL 

•J(i\M)=-(U(KM-1)*AL1)/AL2 

IF  (  (  CM(KT)  .AND. 03). EQ. OB)  .  AND.  ( (Ml  KM-1 )  .AImu.FUlL) 

*  . lU.FULL)  ) GO  TO  lli 

IF-  C  (  (M(KM-l)  .AND. OB)  .Eu.OBJ.ANj.  ( (M(KT  )  .  Ai>IO.  FULL) 

*• EG* POLL)  )GO  TO  116 
Al1=JH>YL 
AL2=UH-YL 

Y(K0)=-(V(KM)*ALl)/AL2 

yu  ro  IOC 

114  aL1=R(K+1)-XU 

al2=0IT-AUi 

V(KM>l)=-(  V(KM)*AL1)/Al2 
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bo  TO  100 
AL1=K(K)-XU 
Au2=0N~AL1 

\J  (  kM  )  --  ( V  ( KM-i )  *AL  1 )  /AL2 
30  TO  100 

Ho  rH-TAN*(Hb(K)-PNOt<X(KM)  )+PliORY(KM) 

AlI=YK-Z(L) 

AL2=DZ-AL\ 

0(KM)=-(U(kT)*AL1)/AL2 
00  TO  100 

10?  Xu=  ( 2t)  ( L )  -PNOK Y  ( KM )  ) /TaH+Pi  iOPX  (KM) 

lK(M(Kb)  .lO.E.000  TO  120 
iF  (M(kT  )  .EQ.EOGO  TO  121 
AL1=PU0KX ( KM ) -Rb ( K-l ) 

AL2=0R-ALI 

U(KM-1)=-(U(KM)*AL1)/Al2 

Al1=XU-K(K) 

Al?=uR-AL1 

V ( KM ) — — ( V (KM+1 ) tALl ) /Al2 
Oo  TO  TOO 

120  i  J=TAU*(R(K) -PNOKA 1KM ) )+PNoRYUM) 
Yu=Z(Lj-Yl 

Xl=YL/TaN 

ali=jh*xl 

Al2=DM-XL 

U(KM-1)=-(U(KM)*AL1)/AL2 

ali=dh-yl 

AL2=iJH+YL 

V (KU)=-(V (KM)*AL1)/AL2 
00  TO  100 

121  Yl=TAN*(R(K)-PNORX(KM) )+PNORY(KM) 
TL=2(L)-Yl 

Xl=YL/TAN 

Al1=UH-XL 

al?.=uh+xl 

0(KM-1)=-(U(KM)*AL1)/AL2 

ali=dh-yl 

Al2=DH+YL 

V (KM)=-(V(Kb)*ALl) /AL2 
Ou  TO  100 

103  ^k=TAU*(Rb(K)-PNORX(KM)  )+PimORY(KM) 

Ai_.l-Zd  (L )  -PNOKY  (Ki»i ) 

AL2=0Z-ALl 

v (KM)=-(V(KB)*AL1)/AL2 

Al1=Z(L)-YI< 

rtL2- DZ-ALl 

U(KM) =-(o(KB) *ALl) /AL2 
Ou  TO  1.00 

104  rn-TAN*(Rb(K)-PNORX(KM) )+PNORY(KM) 
AL.l=PNORY(KM)-Zb(L-t) 

Al2=D4-AL1 

V(i\B)=-(V(KM)*AL1)/AL2 
AL.l= TR-Z(L) 

AL2=JZ-AL1 

U(rsM)=-(U(KT)*ALl)/AL2 
00  10  100 
100  CONTINUE 


APPENDIX  IV 
SPY  PROGRAM 

Function 

Dees  display  and  interaction 
for  Spy  Program 

Sets  up  core-sharing  process 


SHARE 
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SUi>f:G')iIIC  EXaMIN 

common  nvac»ngen»uacm/ac,tmi#tm2»tm3 
C  OMMOf i  NC  YC LE f NSTQP , NEyTM t NED 1 1 t OPE 
COMMON  TlML,El)riM»Ef)01,NPlTtNITER 
COMMON  BE  f  A » EPS2 » DT ,  VMaX ,  UMAX  r  KELAX  ,  CUT 
C'jMMCi  I  SMJ  N  t  EPS.1.  t  NUMAX » U3  TO »  VBTU » UuND  t  VBND 
COMMON  UM  i  MU»  KHOA  t  UP  t  UZ » G  t  I  SEC 
COMMON  VIu# UlN» DKP t DLP t NBP t DDR » DDZ 
COMMON  Nf.xP»NEXHP»NPART»NDlV 

COMMON  N&kiD  » KMAX »  LMaX  ,  KMAXZ  t  LMAxZ  t  KMAXZZr  LMAxZZ 
COMMO1  J  KL'foN » LL/MN  #  KOMX t  lDMX  , MESS ( 7 ) 

COMMON  ICu T  * XMaX t YMA X » CRTI*A » CR TRb  t CRTZA  t CRTZR 
COMMON  I T  t  bT  > I OZ » I Z » GAMA , PoAS » PGASZ  t P 4MB t oASV ,  GAS VZ 
COMMON  NF , NG » MI f » H » XG » nH , MV t GG t FUDGE t NT AL t CRAX , DElZ 
COMMON  K(  lbO)  »Z( 150)  »Rd<  150)  »Z3(150) 

COMMON  1)1^  (1.50)  »L)Zti(li>0) 

COMMON  M(  2i>00) 

COMMON  P(?SO0) »U(?500) , ETA (2500) »V(2500) »PS1 (2500) 
COMMON  DNyKX ( 2500 )  »DNO«Y(  2500)  ,PNOKX(2500)  rPNOKY(2bOO) 
COMMON  ON.L'Z 
COMMON  NU|:V1»NUEV2 
COMMCIJ/FLauI./FLAGI 

COIlMOi./FU.S/Tl  Y.NDMP,NEDT»NSTP,NPIM 
C OrtMOi  i/S  1 1  if  F  /ERRORS » NAME ,  D I  VS  t  PNOKMS  t  TEMPS 
COMMON/MOuSE/INX, INY» INSW»  SWSTAT 
COMMOI VLOCK/PMX » UMX , VMX»  PMXl # UMXi t VMXl 
U I  ME  NS  i  ON  1PK70)  *  IP2(70)  t  IP3(70) 

LOO  I  CAL  I  T  Y ,  HUMP » NLDT » NSTP » UPIM 
CALL  FORK 
CALL  SLTClS 

103  Nil=MTEP/b0*O0 

NPuOTSrNI ftR 
NPLT1=NITeR 

1  CAt-L  ,10VET0(256»92a) 

CALL  WRlTf  l  •PREVIOUS  CYCLEO’ ) 

call  moveio(192»bos) 

call  hpith»max  pressukE=aaaaa.aaa<>* *pmx) 

CAuL  MOVE ro ( 192 t 064) 

CALL  WRITE ( 'MAX  V-VEL0CITY=6AAA»AAA<>* r VMX) 

CALI  HOVt  |0(J92»tI32) 

Call  ahitlcmax  u-velocItysaaaa.aaaO' »umX) 

CALL  MOVEt ( 256 r  760 ) 

CALL  rtHlTECTNlS  CYCLfcOM 
CALL  MCVEjO( 192 » 736) 

CAuL  WRUU’MaX  PRESSUREzAAAAA.AAAO1  »PMX1) 

CALL  MOVF-T0(t92r704) 

Call  WRITfc.  ( *  MAX  V-VELUClTY=AAAA.AAA<>' t VMX1) 

CALL  MO VETO ( 192 r 672) 

CALL  WRITE ( 'MAX  U-VELOClTY=AAAA.AAA<>' »UMX1) 
t)=AL00in(QlVS) 

IB=U>1 

U=ALOG.IO(f»ROKS) 
lO=D-»  1 

CALL  MOVE JO ( 576 » 94 4) 

CALL  «KITl('10Ov) 

CALL  MOVE ( J.6»  20 ) 

call  whitf  (*a6<>»»ib) 


LC  3  Jj  1 » 4 

uPlT=!.<4  4 +j*i  00 
CAlL  f  lOVlIfO  ( 592*  JPLT ) 

C/'LL  VLC(32»0) 

CrtLL  I'iCVL  |0(L>76*464) 

Call  whiittMOo*) 

CALL  NiO v/E  ( If? *20) 

CAuL  .0<ITf(  •aao*  *10) 
uo  r>  jn*,, 
jpui=bL+o-»-.iro 
call  movet^Ovsi jpld 
call  Vf.C(.y»*P) 

CALI.  .'10VL  |  U(  600 » 944) 

Call  V£C ( Cr-400) 

CALL  vLC(j!)P.*0) 

CALL  M0VL( ;ioOO»464) 

call  vlc<c*~490) 

Call  .Eci302.cn 
call  icvetu(704.512) 

Call  .iriteimax  divergenceo*  ) 
call  movlto<794.32) 

Call  rtHITU  'ENOIWPNOKMO1 ) 

call  boxes 

CALL  MjVF.1  0(  106*36) 

call  writet »select<>») 
call  move-|U<i70.  152) 
call  write (  *dt=a.aaaaaa<>*  *dd 
call  moveylc. '.70*240) 

CALL  .VKIlEl  ’NPITO* ) 

CALL  .kRITl  ( *  -AAAO*  *Np?T) 

Call  movlt^i 120*344) 

call  wk i 1 e ( *oeta=aa, aaaaa<>* *  be  ta ) 

call  moveioc  i?a*440) 

CAuL  WRITE*  'EPSrA.AAAAtiAAO*  »EPS2) 

call  move r0< 427.48$) 

call  writei 'cycle  aaaa<>» »ncycle> 

call  send 

Call  MoVLtH  430*  448) 

call  wpitk<»iter  aaaa<>» .niter) 

CALL  Hf'NO 
1 FLPTsn 

ih  (NI  I  t.R ,  ^  o ,  I TPLT ) 60  TO  7 
Call  olij.tl 

tn  iterations  can  be  displayed  on  scope. 

If  (  (NITER-iMIT)  .oT.S0)G0  TO  103 

I  Y=f>44f  (AlOG\0(UIVs)-Io+4)^100 

IF ( Ir.oT.in^0)lY=1000 

IF  (  lY.Lr.S'44)IY=!344 

iA=600KNlTER-NIT)*rS 

lP2(KPL0Ts-MI i )-IY 

call  moveioc ix* iy> 

call  vecigc ix,544) 

1Y=o4+ (ALoO  10 ( ERRORS) -iD+4 )  *lCi) 

If  (  IY.LT.f-4)  IY=64 
IP3(NPlOTs-NI l)-IY 
CALL  M0VE10(IX,IY) 
call  vecto(Ix,64) 


7 


a 

y 

2b 

in 

1J 

12 

kl> 

13 

24 


14 

lb 


inn 

10J 


102 

Id 


call  apnd 

call  move.iO{4^o»440) 

CALL  rfklTe.l»nEU  AAAaO*  »NITER) 

CALL  APNO 

hKL0TS=NPL.0TS+l 

iiPLr-,\ntK 

IF  (NiTEM.t^.DbO  TO  103 
CAlL  MbEAM  (MoT) 

IF (MLV.LC.l)GO  TU  0 

CALL  SLtEp 

00  TO  b 

CAlL  MOUSEY 

1NY  =  (  iNYF9(t)/Qo 

00  TO  ( lb,y» 11# 13# 14) #1HY 

»YFE  2b 

FOFMATdH  #*DT=»»1.) 

ACCEPT  lf\oT 
FObMAl (F) 

00  TO  101 
T'tPC  12 

f  ObMn I ( • Nr  A T-  •  #  1 ) 

ACCEPT  21  :,,\P1T 
f  OKMnl { 1 ) 
oo  TC  mi 

type  24 

FORMAT ( JH  »  1 OET A=  *  1 1 ) 

ACCEPT  IO.oETA 
KELAX=EETa*PHO/v*DE*kP/uT 
CO  TC  101 
IYPE  lb 

FORMAT (1H  ,*EPS='»i) 

ACCEPT  1P.EPS2 
GO  TO  to.1. 

NIT=t.iT+7r 

IIPLCTS=1 

UO  102  lLUPLTl-NlTrNPLOTS-NlT-l 
1  A— t»PO+ 1  *b 
i Y-1P2( I ) 

CALL  M0VET0(IX»IY) 

CALL  VECTi»(IX»b44) 

1|=IP3(I) 

CALL  MOVE i  0  ( 1 A  #  I Y ) 

call  vecto( ix,64) 

00  To  1 
CALL  CLEAR 
CALL  L> JXEb 

call  moveto( 18o»56) 

CALL  WRITE  ( *S10P<>* ) 

call  movljO(  136#  ir>2) 

Call  *<KIT t  (  *CYCi.EO»  ) 

CALL  M0VF.T0(  100,24b) 

CAUL  WRITE.  { •  PE  INTO*  ) 

CALL  MOVE  |  0(  .Ittu#  344) 

call  wkitecoumpo*  ) 

CALL  M0VEtO( 1»6»440) 

CAl.L  WRIT|J»EXIT<>*) 

call  senu 
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CALI.  wi 

IN  <- ( 1NY  i  .jo)  /96 
f»‘>  TO  il7,in»iq,20'21)»!MY 
17  N  •» T»J*: .  fl< J,  . 

call  f.xii 

Id  ImMMs.THJ,  .. 

‘■>0  ro  io.i 

19  NtOTc.rUUi;. 
do  To  .101. 

tn  Null'Ll.  n<u,;. 

uu  ro  i m. 

2d  FOKM/Ud) 

21  !'YIJi:  2h 

20  »*  (Mi4A  r  (  ui  , * NUMP= « , * ) 
ACCEPT  ,M,NDMP1 

i  f  ( Nj'IP  l .  ,.|l.  .  0 )  NUMPzNQMp  l 
CALL  t<11 

bUOPOUT  IN[-"  30XLS 
OJ  .1  U1,J 
•JPi_  r  =  ( I  — 1 )  *06+32 
CAuL  i-IOVEto  ( °o  t  JPI.T  ) 

1  CAuL  uOX 

KL  ru:?r< 
tpo 

SUUUOUrilMi:  [ JUa 

Call  vcc  (.'>;*»» » 3 > 

CALL  Vi:.C(0»64) 

cacl  ve:c< -2^4,0) 
call  t/f-x(n»—64) 

KrrUPN 

too 


■ 


— - — — —  -  ■  ■ 
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lITLli  bilMKL 

ENTRY  FILt. 

ENTRY  FORK 

file:  0 

HR, KOI  2,I:NAML 

MOV  Si  l,  (lBl!lb)7> 

iiTJFN 

MALTF 

HRKZS  1 

MOVE'1  X ,  F  ILoFNjI 

MOVE  r> , L  4*< Oli !  IK  10 !  lb?-0 !  iB21  f  1  bSE !  1026  J 

oplnk 

iIALIF 

Sc.1Z  13, 

MOVSl  3,(i.b2!lB:V.lB4> 

M(>VB*  1,  *+00000 

FMAP:  HRlU  l,n<5) 

KPACS 

Tl.NN  2,  ( IBS) 

Ji<Sl  DONE 

MO  VS  2,F  ILJFN 

HKK I  .'!,n(13) 

pmmP 

AOJA  5,1  MAP 

UONE:  MOVSi  J. ,  ( ,’bO) 

HRKI  1,KILJFh 

CLOSF 

JR.  A  li.' 0(16) 

fork;  fi 

HRKOX  J.FNAML 

MOVSl  1,  (?.P2!  11317) 

OTJFiJ 

iiALTF 

OKKZS  l 

I  IOVEM  1,F  ILJFIi 

Move  2 ,  t  4400 !  lb  1° !  Il.20  !  1B2 1 J  lb213 !  tb26 !  J 

OPENF 

HAL  TF 

strz  b, 

MOVSl  /»,  (lb2!lli’*.MD4) 

MovS  1  ,F ILJFN 

FMAPi:  rlRKl  l,n(5) 

RPaL-S 

I  LUN  2,  (  URi) 

JKST  UOl'iEl 

MOVSi  2,440000 

riPKI  2,^(5) 

PMaP 

AOJA  5, FMAPI 

do,,ei:  mo  vs*  1 , (ibO) 

HP.Ki  SF  II.JFN 

CLOSF 

wR.A  lb»0liu) 

fname :  msc i z/lxan+f ill . shape/ 

end 


APPENDIX  V 


OUTPUT  PROGRAM 


Routine  Name 


Function 


MAIN 

CONTRL 

VPLOT 

WECT 

CNTRL1 

CNTRL2 

CONTOR 


Read  in  data,  compute  A,  BNDRY , 
and  SI  matrices.  Controls  other 
output  functions. 

Displays  output  functions 

Draws  velocity  profiles 

Draws  velocity  vectors 

Displays  ayes  for  velocity  profile 

Displays  choices  for  contour  plots 

Contour  plotting  program 
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10b 

1001 

101 

102 

103 


1 

?. 

3 

4 

5 

6 

7 


dimension 

DIMENSION 

dimension 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


INTEGER  DLN(2)»bNDUY 

DIMENSION  OU<10»9?.)*  VY  (18*92)  *Pp(lb#92)  .SI (IB* 92) 
rtNURY ( 16*  °2) 

A  ( 18* 92) . 11(2500)  *  V(25-0>  *P(250C) 

MESS ( 7 ) 

bPXUGO)  »BPYilOO) 

Xb(lOO)  *YR(100)  »NSFvJ(100) 

XBp(50*2) *YDP<50,2) 

M( 2500 ) 

l<(150)  *Z<150)  *R6(150)  # ZB (150) 

*86(50*2) *Y3d<50,2) 

ME (10*92) 

PTM300)  *PTf(300)  »ZNP<300)  »ZMP(300)  »RMP(300)  »RNP(30r 

EDUIVALENct  (ME,M) 

LODI VAlENCE ( XBb*  XBP ) * ( YR3*  YBP) 

EdUIVALENCE(U#UU)  *  (V*  \/  v  )  *  <P*PP) 


COMMON/ CLP/ IN » I XP»1YR»MN 

C0MmCN/M0uSE/1NX»INY»INSW»SWSTa'  t 

COMMOU/STuHF/UR.DZ.KMAX.LHAXfKOMNfLDMM.KDMX.LJHXftPbl.OT 


COMMON/ W I NDOW/ WS » WCX»  WCY, XL 
COMMON/COnLVL/NCLSiNCL 
COMMON/OC’uN/bLN»  XBP»  YOP 
INTEGER  EmP > BND # FULL » Ob 

DATA  EMP»bND. FULL. 08/16* 32, 8 *2048/ 
WS=8.C 


wcx=b.n 

Nrs=*N» 

UCY=b.r 
TYPE  1001 

format  an  ,  *uispla.y=»  *d 

ACCEPT  1P1.IDI 
FORMAT (A4) 

type  102 

format ( ih  #»input  FiLE=**a») 
ACCEPT  103#  name 
FOKMA.l  <A5) 

IF  ( IUl.EG.  ’ARDS’  HDI  =  1 

IF(IDI.EG.»1S59*)IDI=2 

NAME=NAME+32 

CALL  1 FILE (22* NAME) 

READ (22 *3 ) (MESS( I ) *  I -1*7) 
FORMAT (7AS) 

READ (22*2) NMAX  *  LMAX 
FORMAT (21) 

READ ( 22*  3) SMIN»EPS1 
FORMAT (2F ) 

KEAD(22*4)U*D*MU*RH0A 
F  ORMAT ( 4F  ) 

READ ( 22  *  5 ) uR 

format  <f  ) 

READ ( 22  #  5 ) dZ 
READ ( 22  » 6 ) U 

format ( i ) 

READ  (22*3)  dPX  ( 1 )  *  [ipY  ( 1 ) 

MM- 2 

READ (22*3) 6PX ( MM ) » QPY ( MM ) 


I 


IF  (bPA(l)  .LQ.BPX(MM)  ,AND.BP\M1).E0.8PY(MM))60  TO  8 
MM=MM+ J 
GO  10  7 

UO  9  I  = 

HEAD ( ?2  *  6 ) J 
K=1 

HEAD(22#l  i  )Xd(N)  #Y0(M)  ,NSF.O(N) 

F0KMA1 ( 2F ( 1 ) 

if (Nseu(N) • fu • i ) go  to  12 

Nrli+l 
GO  TO  10 
KMAX2Z=KN'aa-2 
LMAXZZzLNiA  A-? 

KMAX7SKMAX-.1 

LMAXZ^LMAX-.1. 

Xbl«iAXrjR*KMAXZZ 

YRMAX=DZ*LMAXZZ 

N=0 

MM=0 

n=n+i 

MV=MMf  .1 

X0P(MM,1)=YB(N) 

TbP ( MM  *  1 ) sXb ( N ) 

IF  ( NSEGi (  N)  .  EG .  0 )  GO  TO  13 
XdP(MM,l)=YB(N) 

YBP(MM,1)=XB(N) 

xbP(n:m,d=ybmax 

YbP(MM, 1)=X8MAX 

bLN(l)sMM 

mm=o 

mm=mmh 

NsU+1 

XdP(MM,2)=Yb(N) 

YQP ( MM»  2)  i.XL5(N) 

IF(NSEQ(N)  .Fu.DGO  TO 
GO  TO  J 4 
XbP(MM,2)=YE3(N) 

YiJP  (MM#  2)  -XB  (N) 

BLU(2)sMM 

NAME=MAME+6 

call  ifile (23»name> 

RtAJ(23)M 

«EAD(23)U,V,P 

READ ( 23) DT»  RHOA » TIME » NCYCLE  t MJM'-  PS1 
REAU(23)KUMM»KUMX,LDMN,LDMX#DR,DZ»KMAX»LMAX 

kmaxz=kmax-i 

LMAXZ=LMAx-.l 
KMAXZZ=KMaX-2 
LmaXZZ=LMaX-2 
JO  4.14  i-l»KMAX 
JO  414  J=l#LMAX 
bNL)RY(  I,  J)=2 
JO  411  L=2*LMAXZ 
NbUD=1 

IF ( (ME(2»l) .ANJ.EmP) .EO.EMPJOO  TO  4ul 


. •  •  _ .  ,  . 
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IF  (  (ME(2»L)  .ANU.FULL)  .NE.FuLUoO  TO  399 
Nfc»Nl'=2 
13NUKV  ( 1 »L) =1 
00  TO  402 
BNDRY ( 1»L)=2 
DO  411  K=2»KMAX 

00  TO  (4n3*40i>»407*409»411)  »Nfc)ND 
IF  (  <ML(K»L)  .ANU. 013)  .EO.08)G0  TO  404 
bNURYtK»L)=2 
wO  TO  411 
bNUHY (K»L)-t 
N0NL)=2 
00  TO  411 

IF(  (Mt.(K*L)  .ANO. OD)  .NE. O0)(,O  TO  406 
dNDRY (K . L) =1 
MbN[)=3 
00  TO  411. 

UNDRY ( K »  L ) =0 
l'JL)NU=3 
00  TO  41 1 

1F(  (ME(K»l)  .ANu.Ufi)  .Eu.O0.OR.  (ME(K»L)  .ANU.BND) .EQ.Und) 

00  TO  400 

bNUKY(K,l.)=P 

00  TO  41.1 

bNURY t  K»  L ) =1 

NUNU=4 

00  TO  411 

IF  <  (ML(KfL)  .ANu.Ob)  .EO.O0.oR.  ( Ml.  (K.L)  « ANU.bND,'  .  EO.UnD) 

00  TO  410 

bNOKY  <  K » L ) =2 

NBND=i5 

00  TO  41 J 

bNL)R  T ( K  »  L ) =1 

NfJIML)=b 

CONTINUE 

00  412  K=l»KMAX 

1F( (ML(K» l) .AMU.ONU) .NL.BNu)GO  TO  412 
BNDRY  ( K » .1 )  -1. 

IF ( CME(KiLMAX) .mND.BNU) .NE.BND) vO  TO  412 
bIMURt  C  K  r  LmAX  )  =1 

Continue 

DO  413  K=i,KMAX 

IF  (BN0RY(M2).Eu.?)ni-|UKY(K,l>=2 
1F(NYS.EU. *N* )00  TO  303 
1YFL  299 

FORMAT (1H  . * AbtfAC  CALCULATION  FOR  PLOT  ROUTINES*) 

UO  3C1  L-i t LMAa 
KB( 1)=1./1P.**13 
<!B(l)=n. 

kmaxz=kmax-i 

LMAX<!=LMA;;-1 
00  41 F  1=1 .KMAaX 
RB(I  +  l)=KBn)rUU 
DO  41t>  l  =  l»LMAXZ 
LB(I»1)=2b(I)+DR 
DO  417  l=i »KMAa 
DO  417  J=i,LMAX 


Reproduced  from 
best  available  copy. 


L 


417 


16 


17 


lb 

19 


20 


2J. 


22 

23 


24 

25 


27 


2b 

29 


30 


31 


A(I,J)zDl< 

UO  100  J=l»2 
NfjMAXrBLUi  j)-l 
JStCrO 

UO  32  I  =  1,M3MAX 

lF(Y0b(  I  *-l»J)-ruliCl»J)  )20»24»16 
L3LS  ( YBb  ( 1 ,  J)  +  .  000001 )  /UZ+2 

AA=  (  XUl»  ( I  + 1 » J )  -XBB  (I#  J)  )/(  YBB  ( I  +  1 » J )  -YDB  ( I ,  J )  ) 
L2=LMAX 

B=ABD ( I , J ) -A A* YBb ( 1 , J ) 

LuL=l 

Nzn 

DO  lb  L=Lj»L2,LUL 

IF (ZB l L) -YBB (1+1 »o)-. 000001) 17, 17» 19 
NzN+1 

2MP(N)=Zb(L) 

RMP(N)=AA*ZMP(N)+[> 

LLIN£=N 
60  TO  25 

L).  =  (Yt)b<  I,  J)-.  000001  )/DZ+l 

AA= ( XdB ( I  + 1 , J ) -XBB ( I » J ) ) / <  YBB ( 1  +  1 , J ) -YBB ( I , J ) ) 

L?=l 

BrXBbl I , J)-AA*YBB(I , J) 

LDLs-1 

NzO 

UO  22  L=l-1»L2»LUL 

IF(ZB(L)-YBB(I  +  J  »J) +  .000001) 23, 21, 21 
NzN+1 

ZMP  ( N)  zZb  ( L ) 

KMP(N)zZMp(N)*AA+b 

LLINtSN 

GO  TO  25 

LHNE=0 

CONTINUE 

UMAX=LLINt 

UO  27  KJ=1»JMAX 

US(KJ)r(RMP(KJ)-XBB(I»j))**2+(ZMP(KJ)-YBBU»J))**2 

UO  3r  Nzl , JMAX 

TEST-10 ,  P**5 

MT'-tANSzO 

UO  29  MM=1»JMAA 

IF (US (MM) -TEST) 26, 28, 29 

TEST=US(Mm) 

MIKANSiMM 

continue 

RNP(N)=RMF(MTkAMS) 

ZnP(N)=ZMP(MTKANS) 

US  ( MTRANS )  =  J.P .  0**7 
CONTINUE 
JJ.rISEC  +  ! 

U2=ISEC+JMAX 

Nzn 

uO  33  K  J= j.1. ,  J2 
NzN+1 

PTX(KJ)zR|-4P(N) 

PTY(KJ)zZNP(N) 

CONTINUE 
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ISEC=ISEC+JMAX 

32  continue 
1=1 

33  1=1+1 

34  lF(A8b(PTx(I)-PlX(I-D  j-DEPSX)35.35»3U 

3b  IMABS(PTy(I)-PTY(1-1)  )-DEPSY)36#36#3B 

36  ISEC=1SEC-1 
UO  37  KJ=I » I SEC 
PTX(KJ)=PtX( J+l) 

PI Y(KJ)=FTY( J+l) 

37  CONTINUE 
IF ( I" I SEC ) 34 »  34#  39 

36  IF ( I-1SEC ) 33#  39#  39 

39  CONTINUE 

ISEC2'=ISLc-l 

UEP=(PTX(iSEC)-PTX(!SECZ) )**2+(PTY(ISEC)-PTY(ISECZ) )**2 
UCP=SGRT(uEP) 

IF  <DEP-.2*UR)41,42»42 

41  ISEC=ISECz 

42  CONTINUE 

DEP=(PTX(2)-PTX(1) )**2+<PTY(2)-PTY(1) )**2 
UEP=SURT (QcP) 

LrlSEC 

IF (NYS.EO, »N’ )GO  To  54 

Type  53 

53  FORMAT (1H  ,///,’  BOUNDARY-MESH  INTERSECTIONS’) 

UO  51  Kr.l,L 

51  type  52#k,ptx(k) #k»ptyiK) 

52  FORMAT ( lh  » *PTX( * # 12, * )=» »F» *  PTY ( * , 12# ’ )=* ,F) 

54  UO  50  K=1,L 
II=(PTX(K)+.001)/DR+2 
JJ=(PTY(K)+.001)/DZ+2 
X1=PTX(K)-FL0AT(II-2)*UR 
Y1=PTY (K) -FLOAT (JJ-2)*UZ 
IF(X1.GT. .000001)60  TO  47 
lF(Yl.LT.00005.0R.Yt.GT . 0. 19Q999) GO  TO  49 
IF(BNDRY(II»JJ)  .E0.D60  TO  46 

A ( 1 1 #  JJ+1 ) =Y1 

46  A  ( 1 1 »  J  J )  =L)R-Y  1 
GO  TO  49 

47  lF(Xl,v5E.,  19996)  GO  TO  49 

IF ( BNDRY ( 1 1 » J J ) . EQ . 1 ) A ( 1 1 #  J J ) =uR-Xl 
IF(BNURY(  H  +  l,  JJ)  .EQ.1)A(  Il  +  l#  JJ)=X1 
IF ( BNDRY ( 1 1-1 #  JJ) *EQ.l)A(II-l#jJ) =DR+X1 
1721  FORMAT (1H  , 21 # F# I ) 

49  CONTINUE 

50  CONTINUE 

100  CONTINUE 

1F(NYS,E0. »N’ )G0  TO  312 
00  310  K=1 » KMAX 
DO  310  L=l » LMAX 

IF?, ABS(A(K»L)-0. 2)  .LE. 0.0001)60  TO  310 
310  CONTINUE 

312  CONTINUE 

UO  R15  L=1»LMAX 
Si ( 1 , L ) =0 . 5 
NfjNU=0 


rwn  iiiawn  pi 


if(BNury(i»d  .eq.i)nbNu=i 

DO  914  K=2»KMAX 

if ( nbnu.gt • o ) go  to  912 
IF(0NDRY(k»L) «EQ.1)NBNd=1 
S! (K»L )=n.r> 

00  TO  914 

IF(BN0RY(k»L) .EU.0)NBNd=2 
IF(NBND.EQ.2.AND.BNDRY(K,L).EQ.2)G0  TO  915 
SI (K»L)zSl ( K-l » L) “0»  5*A (K"l t L) * 
<VV(K»L)*Rti(K)  ♦VV(K-l#L)*Rl3(K-l)  ) 

continue 

CONTINUE 

Call  setdis 
call  recti (6) 
call  contrl 

CALL  SEND 


106 

107 

108 
201 

20n 

109 

309 

306 

307 
300 


IF ( IDI #EG. 1 ) CALL  AMOUSE 
IF ( I D 1 «EQ# 2) CALL  WMOUSE 
INY=(1NY+128)/128 

00  TO  (106#107#109,lll,l0fl»lll) »INY 

CALL  EXIT 

00  TO  105 

CONTINUE 

CALL  CHGBlN 

CALL  CLEAR 

CALL  CNTRLl 

CALL  VPLOT(V) 

IF ( IDI ,EQ, 1 ) CALL  AMOUSE 

IF ( IDI ,EQ.2) CALL  WMOUSE 

INY=(INY+128)/128 

GO  TO  (900»2C0»201) »INY 

call  chgbin 

Call  CLEAR 

RB(l)=l,/10#**io 

DO  309  K=l,KMAX2 

RB(K+1)=RB(K)+0R 

ZB(1)=0. 

DO  306  L=l»LMAXZ 
ZB(L+1)=2b(L)+D2 
R(1)=-0.5*RB(2) 

Z(1)=-.05*2B<2) 

DO  307  K=2»KMAX 
R(K)=(R8(k)+RB(K-1) )*.5 
DO  308  L=2»LMAX 
Z(L)=(2u(L)+ZB(L-1) )*.5 
CALL  VVE(T<U»V»R»Z,M) 

CALL  SEND 


IF(IDI ,EG,1)CALL  AMOUSE 
IF(IDI,E0.2) CALL  WMOUSE 
INY=< INY+128)/128 
GO  TO  (90c»300) t INY 
3on  call  chgbin 

call  movetO(0»iooo) 

Call  send 


call  chgasc 
type  301 

301  format ( ih  r*ws=*»$) 


ACC6.PT  302*  WS 
302  FORMAT (F) 

TYPE  357 

357  FORMAT (1H  , 'WCX=»,4) 

ACCE.PT  304  »  WCX 

304  FORMAT (F) 

TYPE  305 

305  FORMAT ( 1H  ,'WCY=«,i) 

ACCEPT  3O4 » WC Y 

call  chgbin 

GO  TO  109 
lin  CONTINUE 

111  call  clear 

SC-700/ ( (lMAX2-2)*D2) 

CALL  CNTRL? 

CALL  WMOUSE 

INYGT=( INY+128)/I2d  '  ' 

IF ( INYGT.E0.5)G0  TO  900 
TYPE  113 

113  FORMAT ( 1H  , 'DEFINE  REGION  OF  INTEREST*) 

CALL  wMOUSE 

WCX=(INX-l28)/SC 
WCY=(1NY-3U0)/SC+XL 
CALL  rfMOUst 
WS=WCX-(InX-120)/SC 
Type  114 

114  FORMAT  (1H  * 'POSITIVE  CONTOUR  LEVELS:!*,*) 

ACCEPT  II5 , NCLS 

115  FORMAT (I) 

TYPE  116 

lib  FORMAT ( 1H  r 'NEGATIVE  CONTOUR  LEELS=»»S) 

ACCEPT  115*NCL 
XL=0 
Xw=0 

UO  117  1  =  1 , BLN ( 1 ) 

117  1F(YBP( 1*1) .GT.XL)XL=YyP(Ipl) 

UO  12.1  J=l*2 
DO  119  I=l*3LN(J) 
IX=1023/2*(1+(XUP(I*J)-WCX)/WS) 
lY=1023/2*(l+(  YBPd*  J)-WCY+XL)/WS) 
IFd.EQ.DtoO  TO  118 
CALL  VECLP(IX,IY) 

GO  TO  119 

lib  CALL  MOVClP(I**IY) 

I0NE=1 

119  CONTINUE 

DO  121  I=1»BLN(J) 
IX=1023/2*(1+(XBP(I*U)-WCX)/WS) 
lY=lP23/2*(l+(XL-YbP(Ii  J)-rfCY)/  S) 
IFd.EQ.D60  TO  129 
CALL  VECLp(IX»IY) 

GO  TO  12' 

120  CALL  MOVClPUXi  IY) 

121  CONTINUE 
CALL  SEND 

GO. TO  ( 122*123,124,125,900), INY-T 
CALL  CONTqR ( 18, 92, 5. , VV * BNDRY , A* 18, 82) 


122 
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60  TO  1.26 

123  CALL  CONToK(t8f 92»5. »UU»8NDRY»A»18»92) 
60  TO  126 

124  Call  CONToR(18»92>5.»PP»BNdRY»A»18»92) 
GO  TO  126 

125  continue 

XX=LMAX*DZ-DZ 

1MX=BLN(2) 

I X= If 23/2* ( 1+ (-WCX) /WS) 

I Y=lC23/2* 11+ ( XL-WCY )  /WS) 

call  movclp<ix,iy) 
1X=1023/2*(1+(XBPUMX»2)-WCX)/W5) 
call  veclp<ix»iy) 

lX=lC23/2* ( 1+ ( XBP (1 » 2) -wcx ) /WS) 

call  movci_p<ix,iy) 
lX=lP23/2*<  U(XX~WCX)/wS) 
call  veclp<ix,iv) 

CALL  APNO 

CALL  CONToK( lb»92»5. ,bI.BNURY»A»18»92) 

126  call  apnd 

CALL  wMOUst 
60  TO  111 
60  TO  900 

eno 

subroutine  rectkn) 
uo  10  1=1, n 
JP0S=(I*l2B)-128 
call  movf.to(704»  jposj 
18  call  kect 

RETURN 

END 

subroutine  rect 

CALL  VEC ( 0»  64) 

call  vec<i92»Q) 

CALL  VEC(0»-64) 
call  vec<-192*0) 

RETURN 

end 

SUBROUTINE  amouse 
COMMON/MOuSE/INXr INY, iNSWf bWSTA r 
CALL  CHGASC 

type  in 

10  FORMAT  (111  »•*•) 

ACCEPT  11, INY 

11  FORMaT(I) 

1NSW=INY 

1NY=INY*128-12B 

RETURN 

END 

subroutine  contrl 

CALL  MOVETO(770»24) 

CALL  WRITE ( ’STOPO* ) 

CALL  M0VET0(746» 152) 

CALL  WRITE (’NEW  DATA<>») 

Call  M0VEt()(752»264) 
call  write  < ’VEctorso*  ) 

CALL  M0VET0(74o»296) 
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call  write ( ’velocityo») 

CALL  MOVEtO ( 722 » 498) 

call  write < ’contour  plotom 

CALL  MOVETO(746#520) 

Call  WRITE(  ’PROHLESOM 
Call  M0VEt0<746»5S2) 

CALL  WRITE  l  *  VELOCITtfO* ) 

CALL  MOVEtO <710 *664) 

CALL  WRITE< ’ISOMETRIC  PL0T<>*) 

CALL  MOVETO(9O0»24) 

CALL  WRITE ( * 1<> * ) 

CALL  M0VEtO{900# 152) 

CALL  WRItE<  ’20* ) 

cal,  movetO(90o»2ro) 
call  write < ' 3<> ’ ) 
call  moveto <900*4o8) 
call  WRITe< »4<>» ) 

CALL  MOVEtO{900»536) 

CALL  WRITe<’5<>’) 

call  moveto <900* 664) 
call  WRITE l *60*) 

RETURN 

end 

SUUROUTIME  VPLOT(V) 

C  OMMON/WI NUOW/ WS » WC  X , wc Y » XL 
COMMON/STuFF/DR #U2»KMAX»SZF 
COMMON/MOuSE/INX»INY*lNSW»SWTAT 
UIMENSIOM  V ( 2500) 

DIMENSION  PV(50) 

KMAXZ=KMAX-1 

CALL  CHGUIN 

CALL  MOVEtO { 0» lQOfl ) 

CALL  CHGASC 
TYPE  3 

3  FORMAT ( 1H  t ’PROFILE  AT  Z=»,S) 

ACCEPT  4»p4 

LPOS=200+  <  PZ*190 )  /  ( ( KMAX-2 )  *2*QR )  -t> 
CALL  MOVEtO (LPOSf 820) 

call  veci-io»0) 

i  CALL  VEC(5»15) 

CALL  VEC(5»-15) 

4  FORMAT (F) 

LzPZ/DZ+1 
KTT=(L-1)*KMAX 
DO  6  K=irKMAX 
KM=KTT+K 

PV(K+KMAX)=V(KM) 
b  PV(KMAX«K+1)=V(KM) 

SC=350/ (KmAX-2) 

MOVE=0 

DO  7  K=2»KMAX 

IF(PV<K)+10. 00000. LT.  .OOODGC  TO  7 
GO  TO  b 

1  CONTINUE 

b  KST=K-1 

PV(KST)=0. 

KND=KMAX*2-KST+1 


202 


12 


13 


345 

312 


355 

313 

311 


2b 


203 

41 

40 


PV(KNU)=0. 

DO  13  K=KST,KNl> 

lx-K*sc+.i.on 

lr=-10.*PV(K) +128 

IF  (MOVE, Ei*.  0) CALL  M0VET0( lx, IY) 

CALL  ZIPT0<IX,IY) 

M0VE=1 
CALL  APND 
RETURN 
E  NU 


SudROUTINl  VVECT{U,V,N, ',M) 
dimension  U(2500)#V(2500)#M(2500)»K(150) ,Z(150) 
COMMON/MOuSE/INX» INY»INSW»SWSTaT 
COMMON/WInDOWA'S,  WCX,  WCY,X). 

COMMON/STuFF/DR ,oz,kmax»szf,kdmn»ldmn,kdmx,ldmx»epsi,dt 

C0MM0N/tJ0uN/DLN(2)  #XBP(50»2)  »YQ  (50,2) 
integer  l<ln 

INTEGER  FULL' SUK 
Lata  FULL.SUK/8,4/ 

DO  311  J=lk2 
DO  3.12  1  =  1 , BLN <j) 

IX=1023/2*(l+(XbP(I,J)-WCX)/WS) 
lY=1023/2*(J.+  (  YBP(I,J)-WCY  +  XU/WS) 
lF(I.EQ.t)GO  TO  345 
CALL  VECLp( IX, IY+512) 


LO  TO  312 

CALL  MOVClP (IX, I Y+512) 

CONTINUC 

DO  313  1  =  1 »  BLN ( J) 

I a= 1023/2* { 1+ ( XBP ( I » J) ~WCX)/WS) 

lY=in23/2*(l+(XL-YBP(I,J)-wCY)/WS) 
IF(1.EQ.1)G0  TO  355 
CALL  VECLp ( IX, IY+512) 

GO  TO  313 


CALL  MOVCLP ( IX, IY+512) 

CONTINUE 

CONTINUE 

KKK= . 5* ( 2 .  +KDMN )  + . 5*ABS ( 2 . -KDMN ) 
LlL= . 5* ( 2 .  +LOMN ) + . 5*ABS ( 2 . -LOMN ) 
I0NE=1 


DO  375  K=kKK»KDMX 
DO  375  L=lLL  , LUMX 
KM=K+(L-1)KKMAX 

kb=km-kmax 

IF(  ( 1  (M(KM)  .AND.SUR)  .EQ.SUR)  .OR.  ( (M(KM)  .AND. FULL)  .EG. FULL)  > 
»0  TU  203 

^0  TO  375 

Vl=, 5* ( V ( KM) +V ( KB) ) 

U.1  =  ,5*(U(kM)+U(KM-1)  ) 

IF ( ADS (Ut)-. 001) 41,41, 40 

if ( aus( vi ) -, ooi) 375,375,40 

R1=R(X) 

Z).=Z(L) 

K2=Rl*2.*i)T*Ul*DR/EPSl 
Z2=Z1+2.*U  f ♦V1*UZ/EPS1 
Rj.=IONE*Ri 
R2=I0NE*R? 
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Rl=Rl+XL 

K2=R2+XL 

1X1=1023/2* !l+(Zl-WCX)/WS) 

1X2=1023/2*  < 1+ IZ2-WCX) /WS) 

1Y 1=5 12+1 023/2*  ( 1+(R1“WCY)  /WS) 

IY2=512+1c23/2*! 1+<R2-WCY)/WS) 

IF((lXl-Ix2.LE.l).AND.(lYi-IY2.LE.l)>G0  TO  375 
CALL  MOVClP(IX1»IY1) 

CALL  VECLp ! 1X2* IY2) 

GO  TO  375 
37b  CONTINUE 

IFdONE.NE.DGO  TO  452 
10NE=-l 
GO  TO  26 
452  RETURN 

End 

SUBROUTINE  CNTKLl 
COMMON/MOuSE/INX* INY# lNSW»5WSTAf 
CoMMON/STuFF/DR .  DZ  »  KHAX 
COMMON/OOuN/BLN (2) » XBP 1 50 *2) » YdP ! 50  *  2 ) 

INTEGER  BLN 

call  moveto! 120*512) 

call  vecto l 120 . lift ) 

CALL  MOVEyU (100.120) 

CALL  VECro<820»l2fl) 

00  1  J=l»4 

JP0S=128+j*.l00 

JN=J*10 

call  movetoi 120. jposj 
call  vec(-12»0) 

Call  MOVE ( -30 » -3) 

CALL  WRITEl *A6.<>* *JN) 

1  CONTINUE 
DO  2  1=1*4 
!P0S=12n+i*l75 
lN=-32+I*l6 

CALL  MO VETO ! IPOS* 120) 

CALL  VEC10»-12) 

CALL  MOVE ( -12»"16) 

2  CALL  WRITE! 'AAA. O' »IN) 

CALL  MOVETOI 340*48) 

CALL  WRITE! 'RAUIAL  POblTlON  !MMK>'> 

CALL  M0VEtO!32»512) 

CALL  WRITeCAO') 

CALL  MOVETO! 32*492) 

CALL  WRITEl’XOM 
CALL  MOVETO (32 *472) 

CA!  {-  WRITE!’ IOM 
CA  -L  MOVETO! 32 *452) 

Call  WRITE! ’AO') 

CALL  MOVETO! 32*432) 

CALL  WRITE! ’LO’) 
call  movetoi 32 *392) 

CALL  write! ’V<>») 

CALL  MOVEtO ( 32*372) 

CALL  WRITE! ’E<>’) 

CALL  M0VEtO!32*352) 
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call  wiute(*l<>* ) 
call  moveto(32»332) 
call  white!  'oo* ) 

CALL.  MOVETU (32» 312) 

CALL  WRITE ( ‘CO *  ) 

CALL  M0VET0{32>292) 

Call  write (*i<>*  ) 

CALL  MOVE TO ( 32 t 272) 

Call  write( *t<>* ) 
call  moveto (32 >252) 
call  writer *y<>» ) 

CALL  MOVETO (32 >212) 

CALL  WRITE!  *CO*  ) 
call  movetO(32>i92) 
call  write! *m<>*  ) 

Call  MOVEtU ( 32> 172 ) 

Call  WKITe( •/<>•  ) 

Call  moveto! 32 >152) 

Call  white(  'So'  ) 
call  movetO(32>i32) 
call  writei*e<>‘) 

call  MOVETO (32*112) 

CALL  WRITE (  'CO*  ) 

SC=19U/( (KMAX-2) *DR*2) 

□0  7  J=l>2 
DO  4  I=1»bLN(J) 

IX=XljP(I,j)*SC 
lY=YUP(I> j)*SC 
IF ( I »Eu, 1 ) oO  TO  3 
call  vecto(ix+200,927+iY) 

GO  TO  4 

3  CALL  M0VtTO(IX*200,927+IY) 

4  CONTINUE 

DO  6  I=l»uLN(J) 

IX=XBP(I>J)*SC 
lY=YBP(I>j)*SC 
IF(I.EQ.1)60  TO  5 
CALL  VECTo(IX+200,927-IY) 

GO  TO  6 

5  CALL  MOVETU ( IX+200>  927-1 Y ) 

6  CONTINUE 

7  CONTINUE 

CALL  M0VETO(416»U00) 

call  write! ‘axial  positiom<>*) 
call  moveto (886> 24) 

CALL  WRITE ( ‘RETURN<>‘ ) 

CALL  M0VET0(886» 152) 

CALL  WRITeI ‘0VERLAY<>‘  ) 

call  moveto! 896 >280) 

CALL  WHITE! ‘CLEAKO* ) 

CALL  SCNU 
452  RETURN 

END 

SUBROUTINE  CNTRL2 
C0MM0N/M0uSE/INX» INY> INSW>SWSTaT 
COMMON/STUFF/DR > D 2  > KMAX >  LMaX 
COMMON/BOuN/BLN  <  2 ) >  XBP ( 50  >  2 ) »  Y0P ( 50  >  2 ) 


m  a-  in 


INTEGER  BLN 

CALL  MOVE! 0(868 #24) 

CALL  WRITE!  »V-VELOCm<>» ) 
CALL  MOVEtO < 868# 152) 

CALL  WRIT£(«U-VELOCITY<>») 
CALL  MOVETO (866 #280) 

CALL  WRITE ( »PRESSURE<>») 
Call  MOVE rO< 874 #396) 

CALL  WRITE! ’FUNCTIONO*) 
Call  M0VETO(886#422) 

CALL  WRITE  ( *  STREAMO ' ) 
SC=7n0/( (LMAX-2)*DZ) 

DO  5  J=l#2 
DO  2  1  =  1 #  qLN ( J ) 
IX=XBPII»J)*SC+126 
lY=Y0P(I# j)*SC+380 
IF ( I «EQ. 1 ) GO  TO  1 
CALL  VECTo(lX»IY) 

GO  TO  2 

1  call  moveto! ix,iy) 

2  CONTINUE 

DO  4  1=1#bLN(J) 

1X=X3P{I» j)*SC+128 
IY=380-YBP1I»J)*SC 
IF  1 1 *EQ. 1 ) GO  TO  3 

call  vecto<ix,iy) 

go  TO  4 

CALL  MOVETO(IX#IY) 
CONTINUE 
CONTINUE 
CALL  SEND 
RETURN 
END 


Reproduced  (rom 
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SotiPJcU-Mf.  C  ON  TOR ( M , N , xD I S , G , BND » A » MD » ND ) 
L/if'iEi'JSnh  t>(MU,ND) 

Li  I  ML  Nb  I  ON  XX  <b)  ,YY(5)»t)<200)»X<200>  , 

*  (20T  |  ,BNi)(MD*Ni/)  ,A(MD,ND),F<5)  ,S(5)  ,T<5) 
OlMrNSlOM  XS(OOOO) rYS(uOOO) , XP(300) » YP( 300) 
C0MI10  V«vIf\iUOW/«<S»rtCX,  Wc.Y,Xl 
CoMHON/CONLVL/NCLSrNCL 
INTEGER  bwi) 

SLALt=XUl$/FLOAT (M-l) 

Ll-011,1) 

02=01 

DO  To  1  =  1,  M 

uo  (>e.  j=i,n 

IF  (UNU(X'J)  .GT.DbO  TO  66 
6 j  =AMiNl  ( o.l  »G  ( I ,  J)  ) 
o;=amax1(o2,0( l , j) ) 

Com i i Nut 
NCLl=NCLi> 

1  i.i  iP=o  l 

bi=r,c 

OS  -  ( G2-G1) /FLOAT  (NCL  i  +  1) 

b  ( .1 )  =b  l  +  utj 

DO  b 7  K=2,UCLi 
b«K)=D(N-l)+0S 
OJ.=TLmP 

U (Blefat.OeC)faJ  Tu  68 
lST=-ol/{,*CL>JL) 

Nf;L.UNcL+,JCLS 
MLLNsNCLS+2 
b»ucL’-i>j.  )=o\+rsr 

UO  69  K=NcLN»NCL1 
b(K)=ij(K-l)  +  rSf 
Call  chgjin 
Cc\LL  MOVE  )  C  ( 0, 1000 ) 

UuL  A  PNU 

type  7p,h,g2, (l>(k) ,k=i»ncl1 ) 

F  OKilAT ( In  ,  i  OX,  MIN  GRID  VALUEs*  ,F,3Xr 

V-tAX  GRID  v'ALUEs  »,F,/lH  ,  10X,  ’CONTOUR  LEVELS*/ 

( J.8X,4F- )  ) 

CALL  CMOUiN 
UO  1  1=1, inn 

X  ( I )  =  1 1 -1 ) *, 2 
>11)5(1-1) *.2 
Mi=m-i 
nj=N-i 
Lb=0 

bO  44  1  =  1, ell 

NS=1 

uTtvpsj. 

LO  b  U=NS,Nl 
00  TO  (3,4)  ,  JlLilP 

Ir  ( UNo  ( I ,  j+1 )  ,  Gt •  1«  ANU.BNl) ( I  +  i , J+l ) ,GL • 1 ) oO  TO  5 

JTEMPs? 

00  TO  5 

IF  (BNQ  ( I ,  wt+l )  .Ey ,  u«  0R«  hNU  (I  +  l»J+i)«EQ.t3)G0  TO  5 
NF=J 


I 
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NS=J+1 

IF  (NS.GT.N)NS=.M 
CO  TO  b 

5  CONTINUE. 

CO  TO  44 

b  CO  43  J=Nii*NF 

XCL=1 
1S=0 

IF ( QND l  J .  J)  ,GE.iUS=lS+6 
IF IQNC l I » J+l) .GE.l)lS=lS+2 
IF  lBNDtl  +  l» J+l) .Gt.l) IS=IS+ J 
iF IBNDl 1+1, J)  .Ut;.l)IS=lS+4 
IF  (All  +1»J>-1.  )U»7»li 
7  lF(Aa»J)-l.)U»8rll 

ki  lFlAtI  +  .lrJ+l)-l.)il»9»ll 

b  lFlAU+l»u)-l.)U»19»il 

ly  IF  l  PNL)  1 1 » j )  #E0  .2. OK. UNO  ( 1 1 J+*  )  .E0.2.0K .F'M  J  ( I  +  J+l )  • 

*  Lu.2.UR.unuU  +  1»  J)  .EQ.2)G0  TO  ll 
1S=1 

00  TO  13 

11  IF  IIS. CE.l. AND. 15. LE. 15)00  TO  13 

1S=1 

KKKKK=KKI\i\N+l 
IF  (KKKKK.oT ,40) CO  TO  13 
IF (ISEE.Eo.l) TYPE  12.I.J 

12  FOKMATUH  »  20X ,  31rtWAKNlN(j .  .  .  'IS*  IS  OUT  OF  RANGE. 

*  3a,2!U  =  I3,3X»2Hj=13) 

13  FU)-b(I.J) 

Fi2)=0(I,j+D 

F i o )“o 1 1  +  1 » J+l ) 

F  1 4 )  -G 1 1  + 1 » J ) 

Sil)=X(I) 

S(2)=X(1) 

Si j)-X(I+l) 

S(4)=X(I+i) 

ra>-ru) 

ri2)=Y(j+u 

Tlo)=YlJ+l) 

K4)-Y(j) 

lN=4 

00  TO  l  '13 1 14 1 15 1 16 1 17.  l8»  19»  20. 26 t 2i  r  27 » 24 . 23 1 43»  43 ) » IS 

14  Fl2)=o(I»jH> 

F 1 0 ) -C 1 1 » J+ 1 ) 

F  i 4 ) -o l l + 1 . J+l ) 

F(b)-G(I+lrJ) 

Sl3)=XlI  +  l)-AlI»JH) 

Slb)=X(I+l) 

Vl2)=Y(J) fA(I t J+l) 

T(4 ) -Y ( J+l ) 

Tl S)”Y  C J) 
lN=5 

GO  TO  23 

lb  F l 3) -G ( I  +  l»  J+l ) 

F(4)=G(I+1> J+l) 

Flb)=3(I+l» J) 

Sl3)=X(I)fAU  +  lrJ  +  l) 

Slb)=X(Ifi) 


1 1 *+ )  - r  ( u »  m ( x+if  jf  i) 

f  t  * » )  =  r  t j) 

(n=!3 

vij  TO  ?.(i 

l(.‘>)=o(I  +  l»  J) 

S(S)=X( I )+A( I+1»J) 
n*4)  =  r  (JH  U-A(1  +  1,J) 

T  (5)=Y  ( !_• ; 

1*1-5 

40  TO  23 

l:  ( 2)  -o(  1 1  j>i) 

F(3)-5(Uirj+l) 

t (j)-Y(J)+AflrlrJ+l) 

00  TO  28 

IF  ([3i'JU(  I»  j+\)  .OL.l.ANU  ,3n0(  1  +  1.  J)  .GE.DCO  TO  °5 
i:(l)=G(I»j) 

I*  (5)=o(  I»  j) 

j(5)=X( I+ll-AlI* J) 

r(.l)=Y(JU)-A(I'J) 

r  1 5) -Y ( j ) 

I. MsS 

Oo  TO  28 
F(3)=0(I+1, J+i) 

F'  ( 4 )  -G  ( I  ♦  l » J ) 

3 ( 5 ) -X ( I ) +A ( 1+1 » J+l ) 
smtxii)  hAd+i, j) 

In-4 

*0  TO  28 
K(l)=0(I»j) 

F(2)=G(I» j+1) 

S(.1.)=X(i  +  i)-A(I»J) 

$>  (  2 )  -  X  ( I  + 1 )  «•  A  ( 1 » J  ♦  1 ) 

J. N=4 

<jO  TO  28 
I-  (  U  =G  ( I » j ) 

F(4)-o(  Ih»J> 
f(l)  =  »(Jn)-A(IfJ) 

•  l'*l:r(JU)-A(Hi*J) 

In- 4 

oO  TO  28 

F  ( 1 )  -vj  ( 1 1  J ) 

F(3)-a(  I  +  l»  JH)  +  (o(Ul»  J+i)-C(I»J+l)  )+0(I»o+i) 

j(3)-X(I)+A(ifl»J+l) 

ru)=r(j+D-A(if  j) 

oO  TO  28 

F(2)=j(Ifl»J>l) 
r (3)=o( I+l»J) 
o(.1)-A(I  +  i)-aU»JH) 

S(2)=X(I+i) 
rti)=f( j+i) 

T(0)-t ( j+i)-A( I+l» J) 


w 


=1 

V»0  TO  28 
ICI=2 

IF  ( 3ND  (  i ,  J )  . GE . 1 .  AND #ijNO ( 1 +  1 » J+ 1 )  .GE. .  1 )  bl'TO  22 
r (2)=G( I t j+1) 

F(5)=0(I+1> J> 

S(i)-X(I)+A(I+l*J) 

T(2)=Y(J) +A(I* J+1) 

T(3)=Y( j) 

IN= -5 
vjjro  28 
I-*  (J. )  =G  ( I  #  J ) 

F(2)=G(I+1> J+1) 
f:(3)=G(I  +  i»  J) 

S(  .1 )  iX ( 1  + 1 )  -A  ( I » J) 

S  (  2)  =X  ( I  +  j. ) 

TU)=Y(J)  fA(l  +  i*oH) 

T(3)=f( J) 

IN=  3 
ICL=1 

UO  42  L=l*NCLi 
i-us0 
ISw=l 
11=1 
12=2 
3l=F(U) 

32=F(I2) 

IF  C3(L)-ol)  3Q»  37»  3i 
IF  (8(L)-G2)  34»  37»  32 
IF  (  32-8  ( •_ ) )  34»  37»  32 
-L-Ll+1 

IF  (A6S(S(I2)-S(Il))  .LT.  O.OuOl)  GOTO  33 
3uORE=(T(i2)-T(Il)  )/(S(I2)-S(U) ) 

IF  (AUS(SlOPE) .GT.i.O)  GOTO  33 

XX(Ll)  =  (S(I2)-‘3(  ID  )*lo(L)-GJU/(62-GJ  )+Sl  ID 

YY(LL)  =  (XX(LL)-b(ll)  )*bL0PE+T(U) 

00 fO  34 

bL0P[:=(S(l2)-5(U)  )/(T(l2)-T(Il) ) 
Yt(Lu)=(T»I2)-T(Ii))*(d(L)-GJ)/(G2-Gl)+T(Il) 
Xx(Lu)  =  (Y  r(LL)-nil)  )*bLOPE+S(il) 

u=im 

12=12  FI 

8010  (33»36)»ISh 
IF  ( 12, LE, IN)  GOTO  29 
11=1 
12=  C  4 
lSrt=2 
GOTO  29 

IF  (LL.EG.O)  GOTO  42 
IF  (<-L,EU,2)  GOTO  39 

IF (ISEE.Ej.l) TYPE  30>U_»B (L) » I » J# (r  ( 1 1 ) » 1 i=l 1 4) 
FORMAT  c  WARNING. ..*»l2#Fl0.5r2I2»4Flc.5) 

GOTO  42 

IF  ( XX ( 1 ) .LT.XX(2) )  GOTO  40 
TlM=XX(1) 

XXU)=XX(2) 
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'UnjrTEK 
fcMcrru) 
r  r ( t ) -rv  c  2 ) 
fY(2)=rt>' 

«-S=LSfi 
X'j(LS)  z\\(  1) 
rsiLi)=y  u\) 

I. SSL5H 
XS(L3)=XX(2) 

Y5(L5)=rY(2) 

IF  (ljj.LT.  0000)  SOTO  42 
TyPC  41 

ruU,JM!  (•  DIMENSION  ON  XS  IS  TOO  SMALL  IN  SUli  CONTOK *  ) 

CaLu  exit 

continue 

jOIO  1 4 j»  24#  40#  27) » ICL 

continue 
ooro  2 

CONTINUE 

LSSAY=lS 

lONt-l 

i:ps=,ooi 

i_~  1 
IPSsi 

J. J-0 
lONE-l 
Jj=JJfl 

Xh>l  JJ)iXS(U) 
yP(JJ)=YSiL) 

JJ=JJfl 

If  (JJ.LT.OOO)  oOTO  4 8 

type  47 

Ko.<M;\T  (*  DIMENSION  ON  XP#rP  HaS  dELI  I  EXCEEDED »  ) 

Call  exit 
;;pt  j.j)sxS(L4ii 
Yp(  ,J  J)  =  rS(L+l) 

K=n 
K— K>1 

IF  oOTu  55 

IF  (AdbUS<K)-xS(LU>  )  •  OT.EPS,OR,AdS(Y5(r\)<-YS(L-H)  ) 

. OT .EPS)  viOTO  55 
i.S-L")~2 

IF  (lS.LE.O)  00 TO  56 

l1=L 

L-K-2 

K1=K 

iK  \  C-.l.  )**K.LT.0.0)  v»OTO  51 
TlM=XS(K~JL) 

XS  ( K-1. )  -Xj(  K) 

XS(K)=TEM 

.lM=YS(K-1) 

YSlK-l)=Yb(K) 

TS(Kl=TEM 

L-K-o 
KJ -K-1 

IF  (K.OT.Ll+1)  OOfO  52 
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L=hl 

32  IF  (L.oT.n)  GOTO  S3 

L=1 

33  UO  34  LL-LlfLS 
Ab(LL)=Xb(LL+2) 

54  YS(l.L)=YSiLL+2) 

«fy  (4b»bo)»IPb 

{ K •  LT  »l.b,  ANL) . X  (K )  . L  I'. FLOAT (M)  )  GOTO  49 
3=2 
Ll=L 
LS=lS-2 
00 10  53 

5t>  Gl=(*JJ-l)  *11+134) /2+1 

call  lnpltup»  yp»  jj> 

I X.-l  <'23/2*  ( 1+  {  YP  ( jl )  -wcx )  /ws ) 
iKllOhL.OC.iJGO  To  60 
i'f=:J023/2*il+(XP(  JD-rtCY+XD/WS) 

00  TO  hi 

60  I  <-i  023/2*  U+(XL-aP(  J1)-WCY)/WS> 

6i  Coni £nut 

Call  muvclPUx#iy) 

00  69  J=2,JJ 
if  llb./.LV.O)  GOTO  57 
Jl- JO  *•  1  —  0 
GOTO  5d 
3/  ol=J 

50  iX=1023/?.*(l+(  YP(Jt)-rtCX)/wS) 

IF  ( I0i J[. „6T  •  .1 )  oO  TO  62 
I  r=1023/iH(l+(Xl>{  j1)-WCY+Xl)/aS) 

Go  TO  t< 3 

&2  lY=1023/2*a+(XL-AP(  Jl)-WCY)/wb) 

b3  COMTiNUL 

Call  vlclp(ix#iy) 

59  CONTi HUE 

IF  { I Ol'ifc.  »0T« ! )  GO  To  64 

iONE-XONL+1 

GO  TO  5t> 

64  CONTINUE 

if  (ls.le.o)rei'uun 

ibtn=~xSW 
GOTO  4b 
LNL/ 

SUoROUTINl  PLOT  ( A*  Y » N) 

COFIMON/F I  XT /OX  r  u  Y 
IF (N,LT#0 ) GO  TO  1 
A-10P ,* ( X-mX ) 
oslUO.*lY+DY) 

6A=  IFIaIA ) 

I'»b-H'lx  (6) 

IF{!I.E;0.3)CALL  MOYETO(NA'Nb) 

IF IN.Lu.2)CALL  VECfO(NA*NO) 

KLTUI1N 

1  UX=JXFX 

UY-D V +Y 
KuTUKN 
Lnu 

SUBROUTINE  Fin  I 


call  apnu 
itt  rui«N 
tuu 

StfUHOirriMlL  ILiHLoT  (XX»  Y  f) 

COMMun/F 1 xl /DX t DY 

Ua-2.0 

UYs4,3 

Call  bLTUiSt 

WS=8 . 0 

v.cx=o.n 

wcY=i..n 

Kl'IUKN 

lnu 

Suoltou  r  INfcl  SYMfcll.4  { XX ,  Y  r  » H  F  ,  NOO » NUN » I ) 
KL1UKN 

Lnu 

SUbKOUT I  Ur.  NUMBER  ( XXX #  Y  Y Y » \ IHH » flRR  t  LZZ » 1 1  Ik  ) 
RETURN 

lnu 
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c  this  set  of  subrout iNts  performs  clipping  on 

c  data  passed  to  it  through  veclp  and  movclp 

c  calls.  (4-20-72) 

subroutine  veclpux»iy> 

COMMON/CLP/ IN , I XP » 1 YP  #  MN 

logical  in 

IF ( .NOT • IN)  GO  TO  12 

c  the  previous  point  was  inside  of  the  field 

c  of  vision  defined  by  the  scope. 

NzO 

IF(IX.GT.1023)N=N+1 
lF(IX.LT.0)N=N+2 
lF( IY.GT.1023)N=N+3 
If (IY.lt. 0)N=N+6 
N=N+1 

S=(IY-IYP)/(IX-IXP) 

Go  T0(lf3»b#4»2»4»6»8»6)fN 

c 

c  entire  line  is  visible 

c 

1  call  vectoux.iyj 

oO  TO  11 

c 

c  line  goes  OUT  Top  right  hand  SIDE  OF  SCREEN 

c 

2  lxSr ( 1023-IYP) /S+IXP 

IF ( IXS.GT, 1023)  GO  TO  3 

call  vectouxs.1023) 

GO  TO  10 

3  IF ( I Y.EO. I YP) GO  TO  35 
IYS=(1023-IXP)*S+IYP 
CALL  VECTO(1023»IYS) 

GO  TO  10 

3b  Call  vecto(1023»iy) 

GO  TO  10 

c 

C  LINE  GOES  OUT  TOP  OR  TOP  LEFT  HAND  SIl)L 

C  OF  SCREEN. 

C 

4  IF(IX.EQ.IXP)G0  TO  45 

IXS=  ( 1023-1 YP ) /S+IXP 
IF ( IXS,LT,P)GO  TO  5 
CALL  VEC1 0 ( IXSf 1C23) 

GO  TO  10 

4b  CALL  VECT0(IX»1Q23) 

GO  TO  10 
C 

C  LINE  GOES  OUT  LEF1  HANu  SIDE  OF  SCREEN. 

C 

5  IF ( IY.EQ. IYP) GO  TO  55 

i rs=iyp-s*ixP 
Call  vecto(0»iys) 
go  to  10 

55  CALL  VECTo(OflY) 

GO  TO  10 
C 

C  LINE  GOES  OUT  OF  UOTTOM  OR  BOTTOM  LEFT  CORNER. 


c 

b 


6b 

7 


C 

C 

c 

b 


9 

If) 

11 


C 

c 

c 

12 


13 

14 


C 

C 

C 

lb 


15b 


C 

C 

C 

lb 


IF  (IX.F.Q.IXP)GO  TU  65 

1*S=IXP-IYP/S 

IF ( IXS,LT,G)GO  TO  7 

call  vectouxs.o) 

60  TO  10 

call  vecto<ix,0) 

60  TO  10 
IYS=IYP-IXP*S 

call  vecto(o»iys) 

60  TO  10 

Line  goes  OUT  BOTTOM  RIGHT  HANu  CORNER. 

1 YS=I Yp+S* ( 1023-lXP) 

IF ( I YS, LT , 0 )G0  TO  9 
call  vecto(1023,iyS) 

60  TO  10 
IX5=IXP-IYP/S 
call  vecto(IXs.o) 
i n=. false. 
ixp=ix 

1YP=IY 

NiN=N-l 

RETURN 

line  is  coming  into  field  of  vision. 
n=o 

S=(IY-IYP)/(IX-IXP) 

IF (IX.GT.in23)N=N+l 
IF (IX.LT. 0)N=N+2 
lF(IY.GT.1023)N=Nf3 
IF ( IY.LT.0)N=N+6 
NzN+1 

60  TO  ( 13»23»23»25»23»23»23»23»  23)  »N 
60  TO  (15.17»l6'l4»16»i8r20rl8) »MN 
IXS=(1023-IY)/S+IX 
iFtlXS.GT. 1023)00  TO  15 

call  moveto<ixs»1023) 

Call  VECTo(IX»IY) 

60  TO  22 

line  is  COMING  FROM  RIGHT  SIDE  OF  SCREEN, 

IF(IY.EQ.IYP)G0  TO  155 
IYS=(1(>23-IX)*S+IY 
CALL  MOVETO(1023»IYS) 
call  vECToaxriY) 

GO  TO  22 

call  movetouq23»iy) 

CAuL  VECTo(IX.IY) 

60  TO  22 
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line  is  coming  from  top  or  top  left. 

IF  (IX.E(i.lXP)GO  TO  166 


non 
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IxSr ( 1023-1Y) /S+IX 
1KIXS.LT. 0)60  TO  17 
CALL  M0VET0( IXS# 1023) 

CALL  VECT0(IX#IY) 

60  TO  22 

16b  call  moveto(Ix,io23) 

call  vecto<ix,iy) 

60  TO  22 

LINE  IS  C0MIN6  FROM  LEFT  SIDE  OF  SCREEN. 

17  IF (IY.EG.IYP)60  TO  175 

IYS-I Y-S*IX 

call  moveto<q#iyS) 

CALL  VECT0(1X»IY) 

60  TO  22 

175  call  movetc<o»iy) 

call  vecTo<ix#iy) 

60  TO  22 

lb  1F(IX.EQ.IXP)60  TO  165 

IXS=IX-IY/S 
IF { IXS,LT.9)60  TO  IP 

call  moveto<ixs»Q) 
call  vccto<ix,iy) 

60  TO  22 

lbs  CALL  MOVETO(IX,0) 

Call  VLCTo(IX,IY) 

60  TO  22 

19  IYS=IY-IX*S 

CALL  MOVETO(0#IYS) 

Call  VECTodXfIY) 

60  TO  22 

20  S=(IY-1YP)/(IX-IXP) 

XYS=iY+S*(1023-lX) 

IF ( IYS.LT.P)  60  TO  2l 
CALL  MOVETO(1023»IYS) 

CALL  VECTo(IX»IY) 

60  TO  22 

21  IAS=IX-IY/S 

call  moveto(Ixs»0) 

Call  VECTo(IX»IY) 

22  1NS.1KUE. 

23  MN=N-1 
1XP=IX 
IYP=IY 
RETURN 
END 

SbbROUTINE  MOVCLP ( IX. I Y ) 
C0MM0N/CLP/IN»IXP»1YP»MN 

logical  in 

in=.true. 

n=u 

IF (IX.GT.1023)N=N+1 
1F(IX.lT.0)N=N+2 
IF (IY.6T.l023)N=N+3 
IF (IY.LT.0)N=N+6 
N=N+1 
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00  TO  <1»2»2»2»2»2»2»2,2)»N 
call  move.to<ix,iy) 

00  TO  3 

1N=. FALSE. 

lXP=IX 

irHzlY 

F.N=N-1 

RETURN 

E.NL) 

SubROUTINt  D0TCLP(1X#IY) 
COMMON/CLP/IN,IXP#iYP»MN 
looical  in 

f«=0 

IF (IX.tT.l023)N=N+l 
IF ( IX.LT.0)N=N+2 
If (IY.0T.l°23)N=N+3 
IF ( IY.lT.0)N=N+6 
N=l\l+1 

00  To  ( 1#2#2#2»2»2#2#2»2) »N 
Call  ootat(ix,iyj 

MN=N-1 

1XP=1X 

IYP=IY 

RETURN 

ENU 


APPENDIX  VI 


MISCELLANEOUS  PROGRAMS 


Routine  Name 


Function 


SAVCOR 

PSEUD 

SLEEP 

GETIT 

PRINT 

TYPE 

APFLE 


Saves  a  core  image  o£  currently 
executing  program 

Sets  up  pseudo-interrupts 

Dismisses  process  £or  specified 
number  of  ms. 

Determines  latest  version  of 
saved  core  and  gets  it. 

Reads  in  data  file  and  formats 
for  line  printer  listing. 

Reads  in  data  file  and  formats 
for  teletype  listing. 

Appends  error  function  to  a 
display  file. 


ri  ill. 

SAVCuH 

lhtry 

AL3bAV 

EXTERNAL  hLAGi 

SAVKr.o: 

bLOCls 

20 

ausav: 

n 

MOV  EM 

J  7»  SAVKfc.G+17 

MOVE  1 

17 » SAVREG 

i3LT 

17»SAVREG+16 

MOVEI 

1,400000 

OtVEL 

MuVEM 

2,SAVl.OCH 

liRLZI 

1, 1B1U+Ilj<3b 

MOVE 

3, FLAG 1 

«OKI 

3,1 

MOVEM 

3, FLAG! 

HRKO 

2,RSTART (3) 

oTJFi'i 

HALTI- 

HRRZM 

1,JFNSAVM 

MOVEI 

.1,400030 

HRLl 

2,1 

HRKI 

2,KENTRr 

SEVtC 

HRLI 

1,400000 

hrk 

1, JFN5AV 

MOVE 

2,l  777760, ,20 J 

bAVE 

RE.J  MY : 

MOVE 

1,400000 

HRLl 

2,1 

HRi< 

2, bAVLOC 

SEVEC 

HRLZI 

l7» SAVREG 

bLT 

17.17 

ORA 

l6»  ( lf>) 

kstakt: 

L  ASCU/R.rjMPJ  i/j 

L  ASCiZ/R.jjMP  J  2/  2 

E:mu 
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S 

I 

I 

I 


SAVK 

chi  n  hu  : 
levtab: 
pcSav: 
pseud: 


mes: 

log: 


THIS  PROGRAM  ENABLES  PbEUDO-INTEPRUPTS  TO 

he  genekatlo.  *hen  av  is  type  in,  the 

INTERRUPT  CHANGES  THE  SENSE  OF  THE 
TTY  flag. 

TITLL  INIrPT 
ENTR'i  PSEt.U 


EXTERNAL  pLGS 

m=FLCS 

BLOCK 

2P 

BLOCK 

44 

BLOCK 

3 

BLOCK 

3 

0 

MOVEM 

17, SAVR+17 

MOVE  I 

l7»SAVR 

bLT 

17»  SAVR+16 

URL  I 

lil 

MOVEM 

I.GHNTAB 

HkRl 

If PCSAV 

MOVEM 

.1  iLEVTAd 

MOVEI 

1,900000 

HRLI 

2, lEVTAS 

hrki 

2f CHNTA3 

SIR 

MOVEI 

1,400000 

EIR 

MOVEI 

1,400000 

MOVE 

2, 1400000, ,03 

AIC 

MOVE 

2,1  26, , 0 J 

ATI 

HRLZI 

17»SAVR 

bLT 

yit\i 

uKA 

lo» (16) 

ASCIZUTY  FLAG  CHANGE-J.  .  .  .\ 
SETCMM  0, TTY 
MOVEM  J.,bAVR. 

IIRROI  1 ,  MES 
PSOUT 

HOVE  1 , SAVE 

DEURK 

END 


i 

SLE.LP: 


1I1LL  Sl.E£P 

DISMISSES  THE  PROCESS  f-OR  SPECIFIED  NUMBER  OF 
entry  sleep 

(i 

MOV  EM  ?,SAS.M 

hoVEl  1,10000 

DISMS 

MOVE  .1,  SAl 

DMA  1 0r (16) 


SEARCH  STENEX 


TITLE  START  RIGHT  Fib  jOb 
LOC  2Aonno 

ITHIS  PROGRAM  DETERMINES  THE  APPROPRIATE  P.DMP  FILE 

J  TO  P.UN  FROM  A  Fib  REQUEST . 

FNAMl:  ASCIZ/REQULST£J-F-I-b. input/ 

FNAM2:  ASCI  7/P. DMP/ 

GEflTJ  MOVE  1  ,L  XML)  100901»-2] 

HRROI  2, FNAMl 

OTjFN 

haltf 

MOVE  2.LXW0  1#7  J 

MOvEl  3,2 

GTFDB 

HLR2  2 , 2 

ROT  2,-1 

JOMPL  2, ODD 

MOVE  1,L  X wU  10C9CU>  23 

ORSl  NXT 

OOD :  MOVE  J.  ,L  XWD  10O001»lD 

NXl:  HRROI  2.FNAM2 

GTuFN 
HALTF 

HRLI  1,400000 

GET 

HRRZ  1,120 

JP.ST  0  r  1) 

HALTF 
EnU  GET IT 
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DIMENSION  DU (10,02) ,VV(10»02) »PP(lb»82) 
DIMENSION  m(10,82) ,U(2S00) ,V(2d00) ,P(2500) 
DIMENSION  t*CSS(7) 

EQUIVALENCE  <U,UU) ,  ( V»W)  , (P,PP) 

type  ino 

ion  FORMAT (111  ,*INPuT  FILE:»,4) 

ACtEPf  10) ,NAME 
in  FORMAT  (AS) 

NAME=NAME+52 

call  ifile 121, name) 

RF.AD122,  J  )  (MESS(I)  ,I=if7) 

1  FORMAT 17ASJ 

NAME=MaME>6 

call  if ile (2J»name) 

HEAD  1 23)  Ni 
HEA0(23)U, V,P 

READ 1 23 ) Dt , RHOA »  TIME » NCYCLE , MU, tPSl 
HEAD(23)KuMN,KuMA,lOMN,LDMX,DK,D2,NMAX,LMAX 
WHITE l ?4» ] 6) (MESS( I ), 1=1,7) 
lb  format (in  ,7A5) 

write (24, 17) NCYCLE 
17  format  an  , *cycle  *,d 

DO  2P  L=1 , LMAX 
WPJTL (24,10 )L 

io  forma r ( in  , *l= • , 13) 

WRITE  (24,  i‘J) 

19  FORMAT (1H  ,»K  V  U  P* 

DO  20  K=1,KMAX 

2P  t«RlTE(24,pl)F,UU(K,L),vV(K,L),PPlK,L) 

21  format (iH  ,i3,3*»3F) 

STOP 

tMu 
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integer  bln(2)»bndry 

DIMENSION  UU(18»82),VV(18»82) »PP(1B»B2) 

DIMENSION  ME(18*82) 

DIMENSION  BNDRY(18»82) 

DIMENSION  VZ<18#02),Sltl8»82) 

DIMENSION  DIMR(150)»DImZ(150) 

DIMENSION  A(18'82)'U(2500) ,V(2500) »P(2500) 
DIMENSION  MESS(7) 

DIMENSION  BPX(IOO) »BPY(100) 

DIMENSION  XB(100)»YB(1Q0)  »NSEQ(100) 

DIMENSION  XBP(50»2)#YBP(50,2> 

DIMENSION  M( 2500) 

EQUIVALENCE(U»UU) » <V»  W) » (P»PP) 

EQUIVALENCE(M»ME) 

COMMON/CLp/IN,IXP»IYP»MN 

COMMON/STuFF/DR » DZ  » KMAX » LMAX 

COMMON/WINDOW/Wbf WCX » WCY »  XL 

COMMON/COnLVL/NCLS»NCL 

INTEGER  EmP  » BNO » F ULL > 08 

DATA  EMP'bND'FULUOB/16'32'8'2048/ 

Type  100 

100  formaT(ih  ,» input  file:*,*) 

ACCEPT  10i»NAME 

NAME=NAME+32 

CALL  IFILe(22,NAME) 

101  F0RMAT(A5) 

READ(22»1) (MESS(I) ,1=1,7) 

1  F0RMAT(7A5) 

READ ( 22 » 2 ) KMAX » LMAX 

2  FORMAT (21) 

READ ( 22 » 3 ) SMIN » EPSl 

3  FORMAT (2F) 

READ ( 22’  4 ) D’ D ’MU’RHOA 

4  FORMAT (4F) 

READ (22 #5) UR 

5  FORMAT (F) 

READ (22* 5) UZ 
Read (22» 6) d 

b  FORMAT(I) 

READ(22»3)BPX(1)»BPYU) 

MM=2 

7  READ(22»3)BPX(MM)’BPY(MM) 

IF(BPX(1) .EQ.BPX(MM) ,AND,BPY(1) .EO.BPY(MM) )G0  TO  8 

MM=MM+1 

GO  TO  7 

8  MM=MM-1 

DO  9  I=l»6 

9  READ (22’ 6) 9 
N=1 

10  READ (22’ li )XB(N) »YB(N> , NSEO(N) 

11  FORMAT (2F, I) 

IF(NSEQ(N).EQ.1)G0  TO  12 
NrN+1 

GO  TO  10 

12  KMAXZZ=KMAX-2 
LMAXZZ=LMaX-2 
•<MAXZ=KMAx-1 
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LMAXZ=LMAx-1 

XBMAX=DR*kMAXZZ 

YBMAX=DZ*lMAXZZ 

n=o 

MM=0 

13  NrN+1 
MM=MM+j 

X0P(MM,1)=YB(N) 

YBP(MM,1)=XB(N) 

IF (NSEG(N) . EQ.O)Go  TO  l3 
XbP(MM,1)=YB(N) 

YBP(MM,1)=XB(N) 

mm=mm+i 

XBP(MM,1)=YBMAX 
YbP ( MM » 1 ) -XBMAX 
BLNCl)=MM 
MM-0 

14  MM=MM+1 
N=N+1 

X0P(MM,  2)-YB(N) 

YBP(MM,2)=XB(N) 

IF(NSEQ(N).EQ.1)G0  TO  1$ 

GO  TO  14 

15  XBP(MM,2)=YB(N) 

YBP(MM,2)=XB(N) 

BLN(2)=MM 

NAME-NAME+6 

CALL  1FILe(23,NAME) 

READ(23)M 

READ(23)UfV»P 

READ ( 23 ) OT » RHOA » T IME  r  NC YCLE  >  MU , EPS1 

READ ( 23 ) KOMN , KDMX , LDMN , LOMX  » DR  r  DZ  t KMAX » LMAX 

202  TYPE  16 

16  FORMAT ( 1H  , 'LOOK  AT5*»J) 

ACCEPT  17.IVAR 

17  format (Ai) 

IF(IVAR.Eq.»  mcall  exit 
type  10 

10  FORMAT ( 1H  t ’START  AT  L=»,$) 

ACCEPT  19, LI 

19  FoRMAT(I) 

TYPE  20 

20  format ( ih  ,’list  to  l=»»s) 

ACCEPT  1Q,L2 
ACCEPT  203»NDUM 

203  FORMAT! I) 

TYPE  201»nCYCLE 

201  FORMAT (1H  » ’CYCLE  *,I3) 

if ( ivar.eq, *p* )go  to  24 

IF(IVAR.E(J,*V*)G0  TO  27 
DO  22  L=Lt»L2 
TYPE  21»L 

21  format ( ih  »»l=»»I3> 

DO  22  K~1 , 18 

22  type  23»k,uu(k»u 

23  format ( ih  »*k=»»I3»»  U(K»u=*»f12.7> 

GO  TO  202 


R  v'i  D  ‘in«  .7I  LE  •-OR'31  .DA  T  A  ND  APPEND  TO  FILE 

RRDRC.DAT.  DELETE  FOR21.D6T  WHEN  DONE . 

7A”"  STE'lEX 
I  ILL  V.vair  j')  TO  LE 
•rpy  Ok'Ll 
TER.'AL  APPLE 

a  v'R ?  qi.^K  ED 
•'  "I  :  A  SO  1 2  /  7?R0I  .DAT/ 

•AV?:  AOOIZ/  7RROR  .DAT;  1  / 

LE*  '.1 


'  o  jem 

1  7,SAVR+1  7 

vZ  VET 

1  7,SAVR 

9LT 

1  7.SAVR  +  16 

RRRDI 

2 , 7  NA  Ml 

'D  VS  I 
1T.JT  i 
IA1.TF 

1  ,  C 1  82  1 1  31  7) 

'rj  JEM 

1  ,J7N1  f 

''•"V£ 
OPE  J7 
iau7 

2  ,  [  4  4B  5 !  1  8 1  9  1 

i'Rini 

?  ,  ENA  M2 

•O'JSI 

0  T  J  ?  ! 
HALT? 

1  ,(183! 131 7) 

V'-"JE  v 

1  ,JFN2* 

'  0  VE 

^E'lF 

HALTr 

2,  [44-3  5!  1B22  ] 

v0'VE 
•31  M 

1  ,  J  F  N 1 

vnW£ 

°TS  TS 

3,2 

TL  Ni* 

2,1002 

JRS  T 

DONE 

•?v : 

2,3 

>  ~  ;ir 

9RUT 

1  ,JFM2 

JRS  T 

LOOP 

EL  7 

•ALT'7 

"'LSI 

1  ,  J  7  N I 

1  7,$  AVR 

1  7,$  AVR 


bTANK-tbMKDS  oALl  VALVE  (EXTENDED \ 

l6,92,i,o 

*ftl,.2,o.,o. 

o.»o.,.nri:j2,l.p6 

•  2 
• 

2»2»17»2*9l 

^  j  0  * 

1.7,0. 

1.7, 8. 8 
1.58,9. jl 
1 .5b, 9.55 
1.58,9.82 
1.62,10.07 
1.736,10.53 
1. 75bt 10.78 
1.663,11.04 
1.524,11.42 
0.89,11.4b 
0.846,11.74 
0.90,11.09 
1*397,12.10 
1.46,12.35 
1.65,12.73 
2.964,14.13 
3.175,14.51 
3.2,14.69 
3.2,10. 

O.  ,18. 

0.  ,11.255 

.198,11.2*3 

.366,11.171 

.561,11.072 

. 700,10. Ojb 

.627,10.7/7 

.908,10.595 

.949,10.399 

.949,10.209 

.908,10.105 

.827,9.02.5 

. 700,9.662 

.561,9.526 

.366,9.429 

.198,9.307 

O.  ,9.345 

P. ,0, 

O 

1,16,1,92,0. , -10. ,0,0 
2,io,i,i,p., -in. ,0,1 
2, 17, 92, 92,0., -7. 57, 1,0 
0 

36, .05,22.45, .1 
1.7, -.0001 
1 . 7, 8.6 
1.56,9.3) 

1*  5b»9.5o 
1.58,9.o2 
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1.62,10.07 
1.736# 10. 65 
1.7  36  # 10. 7  o 
1 • 603# 11.04 
1.624# 11 .42 
0.09,11. 4o 
0.046,11.74 
0.9,11.99 
1.397  # 12*19 
1 .4b# 12, 3b 
1. 66 #12, 73 
2,904.14.13 
3. 176# 14.61 
3.202# 14.69#2 
-.0401# 11,266 
0, 190# 11 . 233 
0 • 306# 11*171 
O,6bl#ll.o72 
0. 700, in. 950 

0,027# ln.777 
0,900# 10.696 
0.949 #10, 599 
0,949# 10,209 
o, 900,10.106 

o.027#9.023 
0.700 » 9. bo2 
0.6bl#9.62O 
0.300,9.429 
0.190# 9. 5b7 
-0.0001,9.345,1 
1 #0. #3.2*0. #1U. #  .2086# .9 
1  #  16#  .1  #  92 
.0006 
20 
.1 

.0001 

.45 

N 

.01 

20 

20 

4 


I 

APPENDIX  VIII 

LISTING  OF  DATA  FOR 
BALL  VALVE  SOLUTION 


STARR-EDWARDS  BA|  L  VALVE (EXTENDED) 


CYCLE 

277 

L=  1 

K 

U 

V 

P 

1 

O.OOpOOOO 

-35.2557037 

0.0000000 

2 

-C. 0075029 

-35.2557037 

O.OOOOOOO 

3 

-0.0131090 

-35.3133917 

0.0000000 

4 

-0.0182086 

-35.3263162 

o.ocooooo 

5 

-0,0228600 

-35.3329953 

0.0000000 

6 

-0.0268614 

-35.3382938 

0.0000000 

7 

-0.03C4269 

-35.3437446 

0.00)0000 

b 

-0.0342607 

-35.3448391 

O.OOOOOOO 

9 

-0.0341043 

-34.7626600 

0.0000000 

in 

0.0341043 

0.0682824 

0.0000000 

ll 

0.00CO000 

O.OOOOOOO 

0.0000000 

12 

o.ooonooo 

O.OOOOOOO 

0.0000000 

13 

0.0000000 

0.0000000 

0.0000000 

14 

0.0000000 

0.0000000 

0.0000000 

15 

0.0000000 

3.0000000 

0.0000000 

16 

0.0000000 

0.0000000 

0.0000000 

17 

0.0000000 

O.OOoOOOO 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

L-  2 

K 

u 

V 

p 

1 

O.OOoOOOO 

-35.2409236 

-25.99B2292 

2 

-0.0075029 

-35.2409236 

-25.9982292 

3 

-0.0131090 

-35.3010952 

-26.1790384 

4 

-0.01fl2086 

-35.3151243 

-26.5270531 

5 

-0.0226600 

-35.3228718 

-27.0173922 

6 

-0.0265614 

-35.3290867 

-27.6058041 

7 

-0.0304269 

-35.3348572 

-28.2245919 

B 

-0.0342607 

-35.3361804 

-28.7877768 

9 

-0.0341043 

-34.7583905 

-29.2185578 

10 

0.0341043 

0.0000000 

-29.4657301 

11 

O.OOoOOOO 

-10.0000000 

0.0000000 

12 

0 . OCoOOOO 

-10.0000000 

0.0000000 

13 

O.OOoOOOO 

-10.0000000 

0.0000000 

14 

0,0000000 

-10.0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

0,0000000 

-10.0000000 

0.0000000 

17 

O.OOOOOOO 

-13.0000000 

O.OOOOOOO 

18 

0.0000000 

-10.0000000 

0.0000000 

L*  o 

K 

u 

V 

p 

1 

O.OOOOOOO 

-35.2413002 

-58,8076420 

2 

-0, 00p0038 

-35.2413002 

-58,8076420 

3 

0, 00 j  5547 

-35.3034645 

-58.9373298 

4 

0.0030556 

-35.3178225 

-59.1852829 

5 

0.0043301 

-35.3254676 

-69.5273599 

6 

0.0050547 

-35.3311151 

-59.9238522 

7 

0.0046078 

-35.3355452 

-60.3163153 

B 

0.0010023 

-35.3332594 

-60.6190503 

9 

0.0001551 

-34.7578723 

-60.6135242 

10 

-0.0001551 

0.0000000 

-60.6192805 

11 

O.OOoOOOO 

-19.0000000 

0.0000000 

12 

O.OOOOOOO 

-19.0000000 

0.0000000 

13 

0. OCoOOOO 

-10.0000009 

0.0000000 

232 


o.ocooooo 

C. OCOOOOO 
O.OOoOOOO 
0.0000000 
o.oornooo 

u 

0.0000000 
-O.OOC5199 
0.0005913 
0.0018273 
0.0030747 
0.0041225 
0.0948516 
0.00^6662 
0.0002392 
•0 , 00p2392 
0.0009090 
0.0000000 
0.0000000 
0.0909000 
C.OOpnooo 
C.OOoOOOO 
0.0900000 
O.OOpOOOO 

u 

O.OOoOOOO 
-0,0019812 
-0.00p4366 
0.0905936 
0,0019466 
0.0034631 
0.0050768 
0.00b3552 
0.00p3226 
-0 , 0003226 

o.oopoooo 

0.0009000 

0.0009000 

O.OOoOOOO 

0,0009000 

0,0009000 

C.OOoOOOO 

o.oopncoo 

u 

0.0000000 
-O.OOi 7108 
-0.0015540 
-0, 0007146 
0. 00f7568 
0 ,00?5955 
0.0044356 
0.00^0378 
0.0004056 
-0.00o4056 


-10.0000009 

-10.0000000 

-10*0000000 

-10.0000000 

-10*0000000 

V 

-35.2408037 

-35.2408037 

-35.3050075 

-35*3199217 

-35.3277832 

-35.3333227 

-35.3374459 

-35.3363112 

-34.7522557 

O.OOOOOOO 
-10.0000000 
-io.oCooooc 
-10. 0000000 
-10.0000000 
-10.0000000 
-10.0000000 
-10.0000000 
-10.0000000 

V 

-35.2393445 

-35.2393445 

-35.3056680 

-35.3214685 

-35.3299677 

-35.3359006 

-35.3402894 

-35.3389189 

-34.7471148 

0.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

V 

-35.2367852 

-35.2367852 

-35.305371° 

-35.3224441 

-35.3320152 

-35.3386700 

-35.3433210 

-35.3418738 

-34.7424567 

0.0000000 


0.0000000 

o.ocooooo 

0.0000000 

0.0000000 

0.0000000 

p 

-91.6542172 

-91.6542172 

-91.7389899 

-91.9006832 

-92.1191096 

-92.3628353 

-92.5882347 

-92.7424811 

-92.8500302 

-92.8584397 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.ocooooo 

0.0000000 

0.0000000 

0.0000000 

p 

-124.3235874 
-124.3235874 
-124.3757321 
-124.4758968 
-124.6103379 
-124,7581425 
•  124.8953906 
-125.0059348 
-125.0681379 
-125.0796080 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 

p 

-156.8759889 

-156.8759889 

-156.9040962 

-156.9606797 

-157.0384786 

-157.1260919 

-157.2108832 

-157.2789331 

-157.3213567 

-157.3354568 
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11 

O.OCC-nOOO 

-10.0000000 

0.0000000 

12 

O.OOcOOOO 

-10*0000000 

0*0000000 

13 

0.0000000 

-10*0000000 

0.0000000 

14 

o.oocncoo 

-10*0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

o.oooooco 

16 

O.OOCOOOO 

-10*0000000 

0.0000000 

17 

0.0000000 

-10*0000000 

0.0000000 

16 

O.OOcOOOO 

-10*0000000 

0.0000000 

L-  ( 

K 

u 

V 

p 

1 

0.0000000 

-35.2331959 

-169.3525612 

2 

-0.0023061 

-35.2331959 

-189.3525612 

3 

-0,0026064 

-35.3041831 

-189.3615429 

4 

-0,0019422 

-35.3228927 

-189.3844683 

5 

-0. 0003663 

-35.3339322 

-189.4205161 

6 

0.0017443 

-35.3415921 

-189.4663316 

7 

0.0039077 

-35.3466470 

-189.5146244 

8 

0.0057533 

-35.3451062 

-189.5568450 

9 

0.0004883 

-34.7382482 

-189.5867535 

10 

-0 , 00p4883 

0.0000000 

-189.6029790 

11 

0.0000000 

-10.0000000 

o.ooonooo 

12 

o.ooonooo 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

O.OOCOOOO 

-10.0000000 

0.0000000 

15 

O.OOcOOOO 

-10.0000000 

0.0000000 

16 

O.OOCOOOO 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

16 

L=  8 

K 

0.0000000 

-10.0000000 

o.ocooooo 

u 

V 

p 

3. 

0.0000000 

-35.2292165 

-221.7791439 

2 

-0, 00?5798 

-35.2292165 

-221.7791439 

3 

-0.0031120 

-35.3026159 

-221.7707601 

4 

-0.0025603 

-35.3231080 

-221.7639112 

5 

-0.00C9363 

-35.3358284 

-221.7651927 

6 

0.0013630 

-35.3446953 

-221.7787509 

7 

0.0037333 

-35.3502281 

-221.B022016 

8 

0,0056511 

-35.3484869 

-221.8287797 

9 

0.0005705 

-34.7343184 

-221.8519454 

in 

-0.0005705 

0.0000000 

-221.8695157 

11 

O.OOCOOOO 

-10.0000000 

0.0000000 

1.2 

0.0000000 

-io.oooocoo 

0.0000000 

13 

o.ooonooo 

-10.0000000 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

0,0000000 

-10.0000000 

0.0000000 

16 

0,0000000 

-10.0000000 

0.0000000 

17 

O.OOcOOOO 

-10.0000000 

o.ooocooo 

18 

O.OOCOOOO 

-10.0000000 

0.0000000 

L-  9 

K 

u 

V 

p 

1 

o.ooonooo 

-35.2266345 

-254.1678143 

2 

-0, OOi 9593 

-35.2266345 

-254. 167B143 

3 

-0,00?1293 

-35.3020564 

-254.1429256 

4 

-0,0015640 

-35.3238367 

-254.1079488 

5 

-0.0001432 

-35.3378758 

-254.0776287 

6 

0,0019433 

-35.3478353 

-254.0643033 

7 

0.0041479 

-35.3538290 

-254.0705991 
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B 

0.0058341 

-35.3517771 

-254.0892553 

9 

0.0006522 

-34.7303998 

-254.1100872 

10 

-0.00C6522 

0.0000000 

-254.1283411 

11 

O.OOcOOOO 

-10.0000000 

0.0000000 

12 

o.occoooo 

-10.0000000 

0.0000000 

13 

0. 000*000 

-10.0000000 

00000000 

14 

O.OOcOOOO 

-10.0000000 

0.0000000 

15 

O.OOoOOOO 

-10.0000000 

O.OOOOOOO 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

0,0000000 

-10.0000000 

0.0000000 

18 

O.OOoOOOO 

-10.0000000 

O.OOOOOOO 

L=  10 

K 

u 

p 

1 

O.OOpOOOO 

-35.2290750 

-286.5192001 

2 

0.0004745 

-35.2290750 

-286.5192001 

3 

0.00)8432 

-35.3052828 

-286.4793879 

4 

0.00?6255 

-35.3265159 

-286.4189599 

5 

0.0032137 

-35.340265° 

-286.3604803 

6 

0.0041310 

-35.3505190 

-286.3246132 

7 

0.0053742 

-35.3568736 

-286.3191259 

8 

O.OOf.3303 

-35.3545625 

-266.3363367 

9 

0.0007330 

-34.7261980 

-286.3594410 

10 

-0.0007330 

0.0000000 

-286.3775831 

11 

O.OOCnOOQ 

-10.0000000 

0.0000000 

12 

o.oocnooo 

-io.ooooooc 

0.0000000 

13 

O.OOpOOOO 

-10.0000000 

0.0000000 

14 

O.OOPOOOO 

-10.0000000 

0.0000000 

15 

0. OOpnOOO 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0900000 

L-  11 

K 

u 

V 

p 

1 

O.OOoOOOO 

-35.2426425 

-318.8180928 

2 

0.0059613 

-35.2426425 

-310.8180928 

3 

0.01P8315 

-35.3169449 

-318,7699024 

4 

0 , 01?1493 

-35.3335336 

-318.6936048 

5 

0,0107562 

-35.3432108 

-318.6156344 

6 

0.0087228 

-35.3516936 

-318.5625193 

7 

o ,0075305 

-35.3581905 

-318.5498644 

8 

0.0070213 

-35.3561960 

-318.5713035 

9 

0,0008126 

-34.7215280 

-318.O013107 

10 

-0,00p8126 

O.OOOOOOO 

-318.6186370 

11 

O.OOOOOOO 

-19.0000000 

0.0000000 

12 

o,ooonooo 

-10.0000000 

0.0000000 

13 

o.oop^noo 

-10.0000000 

0.0000000 

14 

O.OOpOOOO 

-10.0000000 

0.0000000 

15 

0,0000000 

-10.0000000 

0.0000000 

16 

o.ooonooo 

-10.0000000 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

L=  12 

K 

u 

V 

p 

1 

0.0000000 

-35.2760255 

-351.0333714 

2 

0.0157937 

-35.2760255 

-351.0333714 

3 

0.027nl52 

-35.3437353 

-350.9921883 

4 

0 , 02g3990 

-35.3484020 

-350.9229612 

235 


5 

0.0243600 

-35.3470109 

-350.8455013 

6 

0.0165756 

-35.3495941 

-350.7860047 

7 

0.0105188 

-35.3557192 

-350.7694159 

8 

0.0075182 

-35.3556961 

-350.7981715 

9 

0.0O08q0B 

-34.7165678 

-350.0393545 

in 

-0.0008908 

0.0000000 

-350,8550045 

11 

O.OOpnOOO 

-10.0000000 

0.0000000 

12 

O.OOoOOOO 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

0,0000000 

-10.0000000 

0.0000000 

15 

0.0Q0"000 

-10.0000000 

0.0000000 

16 

0.000O000 

-1O.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

O.OOoOOOO 

-10.0000000 

0.0000000 

L=  13 

K 

u 

V 

p 

1 

O.OOoOOOO 

-35.3393737 

-383,1229997 

2 

0, 03p7032 

-35.3393737 

-383,1229997 

3 

0.0517871 

-35.393720° 

-383.1160930 

4 

0.05*1562 

-35.3756569 

-383.0950414 

5 

0.04«s6579 

-35.3523087 

-383.0551249 

6 

0 , 02**4295 

-35.3418253 

-383.0C81974 

7 

0,0139093 

-35.3462588 

-382.9893213 

8 

0.0070234 

-35.3516214 

-383.0227335 

9 

0,0009674 

-34.7122382 

-383.0740531 

10 

-0.0009674 

O.OOOOOOO 

-383.0874567 

1.1 

O.OOoOOOO 

-10.0000000 

O.OOOOOOO 

12 

O.OOOOOOO 

-10.0O00000 

O.OOOOOOO 

13 

0.0000000 

-13.0000000 

0.0000000 

14 

O.OOOOOOO 

-10.0000000 

0.0000000 

15 

O.OOOOOOO 

-10.0000000 

0.0000000 

16 

O.OOOOOOO 

-10.0009000 

O.OOOOOOO 

17 

O.OOOOOOO 

-10.0000000 

0.0000000 

18 

0,0000000 

-10.0000000 

0.0000000 

JT 

II 

-1 

K 

u 

V 

p 

1 

O.OOpOOOO 

-35.4410753 

-415.0495161 

2 

0, 04q8085 

-35.4410753 

-415.0495161 

3 

0.0841169 

-35.4741767 

-41&. 1130323 

4 

0.0920375 

-35.4201984 

-415.1976858 

5 

0.0750737 

-35.3605587 

-415.2515461 

o 

0,0445843 

-35.3259444 

-415.2488638 

7 

0.0168991 

-35.3254613 

-415.2280693 

8 

0,0043263 

-35.3419695 

-415.2510804 

9 

0. 00x0419 

-34.7105924 

-415.2986449 

10 

-0.0010419 

O.OOOOOOO 

-415.3092359 

11 

O.OPpnoOO 

-10.0000000 

O.OOOOOOO 

12 

0.0000000 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

o.oonoooo 

-10.0000000 

o, 0000000 

15 

0.0000000 

-10.0000000 

O.OOOOOOO 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

O.OOOOOOO 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 
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K 

u 

V 

p 

1 

O.OOOOOOO 

-35.5820086 

-446.8123731 

236 


K 


2 

0.0693563 

-35.5820086 

-446.8123731 

3 

0.1184604 

-35.5874881 

-446.9801788 

4 

0.13?26'U 

-35.4856245 

-447.2300340 

5 

0.1102661 

-35.3746358 

-447.4452887 

6 

0.0643802 

-35.3008628 

-447.5333807 

7 

0. 0184666 

-35.2884606 

-447.5109917 

a 

-0. 0018255 

-35.3243276 

-447.4878614 

9 

0.00U141 

-34.7148474 

-447.4913222 

in 

-0.0011142 

0.0000000 

-447,4988435 

li 

O.OOpOOOO 

-10.0000000 

0.0000000 

12 

C.OQCOOOO 

-10.0000000 

0,0000000 

13 

O.OOoOOOO 

-lO.COOOOOO 

0.0000000 

14 

O.OOcOOOO 

-10.0000000 

0.0000000 

15 

0.000O000 

-10.0000009 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

16 

=  16 

o.ooonooo 

-10.0000000 

0.0000000 

u 

V 

p 

X 

o.ooonooo 

-35.7481584 

-478.4891163 

2 

0. 0818991 

-35.7481584 

-478.4891163 

3 

0.14-^0397 

-35.7253037 

-478.7695822 

4 

0.1653096 

-35.5711285 

-479.2150561 

b 

0.1440054 

-35.3990287 

-479.6478678 

6 

O.OOs3848 

-35.2692086 

-479.0861001 

7 

0 , 0179313 

-35.2318600 

-479.0701335 

8 

-0. 01ib784 

-35.2967545 

-479.7309269 

9 

0. 00il837 

-34.7283579 

-479.6130364 

10 

-0.0011837 

0.0000000 

-479.6172832 

11 

O.OOpnCOO 

-10.0000000 

0.0000000 

12 

o.oocnooo 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

o.ooonooo 

-10.0000000 

0.0000000 

lb 

O.OOPOOOO 

-lc.ooooooo 

0.0000000 

16 

O.OOpOOOO 

-lO.OOOOOOO 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

O.OOpOOOO 

-10.0000009 

0.0000000 
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u 

V 

p 

1 

O.OOpOOOO 

-35.9045625 

-510,2625419 

2 

0.0769643 

-35.9045625 

-510.2625419 

3 

0.14C0217 

-35.8624723 

-510.6146117 

4 

0.1716546 

-35.6667407 

-511,2139736 

5 

0.16i7890 

-35.4383834 

-511.8680452 

6 

0 . 10?0792 

-35.2403710 

-512.3191704 

7 

0.0163551 

-35. 1584375 

-512.3422821 

8 

-0, 02i 8047 

-35.2596991 

-511,9657297 

9 

0,00]24Q9 

-34.7515583 

-5U,  6049205 

in 

-0.0012499 

0.0000000 

-511.6059561 

11 

O.OOpnCOO 

-io.oOooooc 

0.0000000 

12 

O.OOcOOOO 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

O.OPcnOOO 

-10.0000000 

o.ooooooo 

15 

O.OOpOOOO 

-10.0000000 

0,0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

O.OOpOOOO 

-10.000000Q 

0.0000000 

18 

O.OOpOOOO 

-10.0000000 

0.0000000 
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16 

0.0000000 

-10*000000* 

0.0000000 

17 

O.OOoOOOO 

-10*0000000 

0.0000000 

16 

L-  21 

K 

0. 000*000 

-10*0000000 

0.0000000 

1 

u 

O.OOpOOOO 

V 

-35.2265522 

p 

-643.6794479 

2 

-0.2428349 

-35*2265522 

-643.6794479 

3 

-0.4274152 

-35*3463557 

-643.4273724 

4 

-0.5158106 

-35.3996880 

-642.8332706 

5 

-0 . 47?*987 

-35.4650758 

-642.0731176 

6 

-0.23397*" 

-35.5382036 

-641,7500381 

7 

0,28f,5r''  o 

-35.7516021 

-642.3495193 

6 

0.2602112 

-35.2029610 

-639.5371188 

9 

0.0014710 

-34.4476208 

-637.7373715 

10 

-0.0014710 

0.0000000 

-637.7203320 

11 

0.000*000 

-10.0000000 

0.0000000 

12 

0.0000000 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

0.0*0*000 

-10.0000000 

0.0000000 

IS 

0.0000000 

-10.0000000 

0.0000000 

16 

0.000*000 

-10.0000000 

0.0000000 

17 

0.0*0*000 

-10.0000000 

0.0000000 

18 
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k 

0.0000000 

-10.0000000 

0.0000000 

r\ 

1 

u 

O.OOpOOOO 

V 

-34.4952852 

p 

-679.5053636 

2 

-0,3671225 

-34.4952852 

-679.5053636 

3 

-0,66.55240 

-34.7058758 

-679.1723673 

4 

-0.8572167 

-34.9054176 

“678.2025699 

5 

-0.8900878 

-35.1844881 

-676.4011388 

6 

-0.57i2988 

-35.6964756 

-674,1460492 

7 

0,60o5464 

-36.9279411 

-673.3530317 

6 

0. 55^5609 

-35.2519568 

-670.8787014 

9 

0.0*15149 

-33.9297220 

-669.7760527 

10 

-0.0*15149 

0.0000000 

-669.7063152 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

0.0*0*000 

-10.0000000 

O.OOOOOOO 

13 

0.000*000 

-10.0000000 

0.0000000 

14 

O.OOpOOOO 

-10.0000000 

0.0000000 

15 

0.0*00000 

-10.000000* 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

1 7 

0.0000000 

-10. *000000 

0.0000000 

18 

L=  23 

K 

O.OOpOOOO 

-10.0000000 

0.0000000 

1 

u 

O.OOpOOOO 

V 

-33.5426595 

p 

-716.3895969 

2 

-0.4776434 

-33.5426595 

-716.3895969 

3 

-0.8767802 

-33.8575944 

-716.2130330 

4 

-1.1703163 

-34.2044853 

-715,3574754 

5 

-1.3113833 

-34.6908428 

-713.0187978 

6 

-0,9676788 

-35.7666381 

-708,3091666 

7 

1.0523841 

-38.9757711 

-703.7328859 

8 

0,93i.«595C 

-35.2910344 

-703.2048483 

9 

0,00i5558 

-33.0590799 

-703.5322343 

10 

-0.0015558 

0.0000000 

-703.3305843 

11 

O.OOoOOOO 

-10.0000000 

0.0000000 

12 

0,000*000 

-10.0000000 

0.0000000 
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13 

o.oocoooo 

-10.0000000 

o.ooooooo 

14 

0.0000000 

-10*0000000 

0.0000000 

15 

0,0000000 

-10.0000000 

0*0000000 

16 

o.oocoooo 

-10*0000000 

0.0000000 

17 

0.00Cn000 

-10.0000000 

o.ooooooo 

18 

O.OOoOOOO 

-10*0000000 

0.0000000 
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< 

u 

V 

p 

1 

0.0000000 

-32.4163906 

-754.2335917 

2 

-0.5647062 

-32.4163906 

-754.2335917 

3 

-1.0324574 

-32.8597095 

-754.4009988 

4 

-1.38p7374 

-33.3756447 

-754.2470549 

5 

-1.5740538 

-34.0774149 

-752.7400632 

6 

-1.27fl5430 

-35.7471529 

-747.2712626 

7 

1.51fl5734 

-41.796639Q 

-736.6449837 

8 

1.3138046 

-35.3060547 

-739.0522887 

9 

0.0015950 

-31.8364639 

-740.5057628 

in 

-0.0015950 

0.0000000 

-740.0949527 

11 

o.oco°ooo 

-13.0000000 

o.ocooooo 

12 

0.0000000 

-10.0000000 

O.OOOOOOO 

13 

0.0000000 

-1Q.0000000 

o.ooooooo 

14 

O.OOCOOOO 

-10.0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

o.ooooooo 

16 

o.oocoooo 

-10.0000000 

0.0000000 

17 

O.OOCOOOO 

-10.0000000 

0.0000000 

18 

O.OOCOOOO 

-10.0000000 

o.ooooooo 
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V 

p 

1 

0.0000000 

-31.1632540 

-792.9777135 

2 

-0.6201805 

-31.1632540 

-792.9777135 

3 

-1.1317574 

-31.7718003 

-793.4378986 

4 

-1.4612365 

-32.5296983 

-794.0670703 

5 

-1. 53fl7375 

-33.5733995 

-794.5629363 

6 

-1.1015646 

-35.8929683 

-792.8811689 

7 

1.77S5537 

-44.7370127 

-777.4902587 

8 

1.5620841 

-35.3512883 

-781,0705011 

9 

0. 0016342 

-30. 38221*85 

-781,6339438 

in 

-0.0016342 

o.ooooooo 

-781.0338442 

ll 

0.0000000 

-10.0000000 

0.0000000 

12 

o.ocooooo 

-10. qoooooo 

0.0000000 

13 

o.oocoooo 

-10.000000C 

o.ooooooo 

14 

o.ocooooo 

-10.0000000 

o.ooooooo 

15 

0,0000000 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

o.oocoooo 

-10.0000000 

o.ooooooo 

18 

o,ooonooo 

-10.0000000 

0.0000000 

L=  26 

K 

u 

V 

p 

1 

o.oopnooo 

-29.8191313 

-832.7893470 

2 

-0.6737169 

-29.8191313 

-832.7893470 

3 

-1.1969293 

-30.6274146 

-833.2990263 

4 

-1.4699228 

-31.7255236 

-833.9636777 

5 

-1.28C0676 

-33.3725071 

-835.2092807 

6 

-0.2122785 

-36.7970038 

-838.8087605 

7 

1.6861749 

-46.7714906 

-828.4534295 

8 

1.6064524 

-35.5268575 

-828.3775453 

9 

0,0016747 

-28.8866356 

-825.9410341 

-0.0016747 

o.oocoooo 

0.0000000 

0.000°000 

O.OOCOOOO 

o.oocoooo 

0.0000000 

0.0000000 

o.oocoooo 

u 

o . ooooooo 

-0,6990858 
-1.2361363 
-1. 47gb000 
-1.09B3221 
1.1044203 
1.40p6086 
1.50fl1670 
0.00i7l78 
-C. OO]7170 
0.0000000 
O.COpOOOO 

o.oocoooo 

O.OOCOOOO 

o. ooooooo 
o.ocpnooo 
o.oocoooo 

O.OOpOOOO 

u 

o.oocoooo 

-0,6977563 
-l,22p406B 
-1,437B544 
-1.0275985 
1,9169036 
1 . 2460875 
1.3992354 
0,0017646 
-0. 0017646 
O.OOpOOOO 
0,0000000 
0.0000000 
O.OOpOOOO 
O.OOpOOOO 
O.OOpOOOO 
0.0000000 
0.0000000 

u 

O.OCpopOO 

-0.66ft5963 

-1.1325859 

-1,2441632 

-0,7024071 

1.7579073 


0*0000000 
-10*0000000 
-10. OOOOOOO 
-10. OOOOOOO 
-10.0000000 
-10*0000000 
-10. OOOOOOO 
-10.0000000 
-10*0000000 

V 

-28.4227613 

-28.4227613 

-29.4482660 

-30.9412826 

-33.3075921 

-39.0025448 

-47.2974978 

-35.8602356 

-27.4828948 

0. ooooooo 
-10.0000000 
-to. ooooooo 

-10. OOOOOOO 

-10. ooooooo 

-10. OOOOOOO 
-10. OOOOOOO 
-10.0000000 
-10. OOOOOOO 

V 

-27.0307504 

-27.0307504 

-28.2887425 

-30.1945001 

-33.4478721 

-42.0481306 

-46.9171774 

-36.2182587 

-26.1809323 

0. ooooooo 
-10. ooooooo 
-10. ooooooo 
-10. ooooooo 

-10. OOOOOOO 
-10. OOOOOOO 
-10. OOOOOOO 
-10.0000000 
-10. ooooooo 

V 

-25.6971717 
-2C  5971717 
-2"» « 2269551 
-29.6099652 
-33.6224221 
-44.6990877 


-825,2897491 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

-873.9951108 

-873.9951108 

-874.5191996 

-874.6690606 

-873.7977971 

-874.6188958 

-882.0260991 

-875.7069562 

-870.9813212 

-870.4006378 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

-916.5451978 
-916.5451978 
-917.4204548 
-917,8811987 
-915,5198936 
-909,5184211 
-925.3187631 
-920.1577757 
-915.4815753 
-914.9829601 
0.0000000 
0.0000000 
0. OOOOOOO 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 

p 

-959.7103451 

-959.7103451 

-961,1601089 

-963,0578239 

-963,0086650 

-953.7183051 
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7 

1.2351853 

-46.6687743 

-964.5730336 

8 

1.3334380 

-36.5162920 

-964.2826398 

9 

0.0018163 

-24.9405013 

-959,7451691 

in 

-0.0018163 

o.ooooooo 

-959.2961301 

11 

o.ooooooo 

-io.qoooooo 

0.0000000 

12 

O.OOCOOOQ 

-10.0000000 

0.0000000 

13 

0.00CO000 

-10.0000000 

0.0000000 

14 

0.0000000 

-10*0000000 

0.0000000 

15 

o.ooooooo 

-10.0000000 

0.0000000 

16 

0.000O000 

-10*0000000 

0.0000000 

17 

O.OOcOOOO 

-10.0000000 

0.0000000 
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-  jo 

0.0000000 

-10*0000000 

o.ooooooo 

u 

V 

p 

1 

O.OOcOOOO 

-24.4336925 

-1002,6408315 

2 

“0.6336090 

-24.4336925 

-1002.6408315 

3 

-1.01«9235 

-26.2934852 

-1094.3390517 

4 

-0.94n0336 

-29.2899411 

-1097.2085403 

5 

-0.2140049 

-34.1928314 

-1010.7652706 

6 

0.99o9842 

-46.0016292 

-1006.8379019 

7 

1.1474224 

-47.0146373 

-1006.8550755 

8 

1.3108338 

-36.8710700 

-1009.3036715 

9 

0.0018741 

-23.7213038 

-1003.9001287 

10 

-0.0018741 

0.0000000 

-1003.4738344 

11 

0.0000000 

-19.0000000 

0.0000000 

12 

O.OOCOOOO 

-10.0000000 

0.0000000 

13 

0.0000000 

-19.0000000 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

0.00c°000 

-10.0000000 

0.0000000 

16 

o.ooo°ooo 

-10.0000000 

0.9000000 

17 

0.0000000 

-10*0000000 

o.ooooooo 
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-  3t 

0.0000000 

-10.0000000 

0.0000000 

u 

V 

p 

1 

O.OOpOOOO 

-23.2039552 

-1045,2207227 

2 

-0,61f,8104 

-23.2039552 

-1045.2207227 

3 

-0.9522980 

-25.4377551 

-1046.7000727 

4 

-0.7476373 

-29.1571893 

-1049.0059902 

5 

0.3953287 

-35.2879468 

-1061.8103514 

6 

0.2838942 

-45.9680870 

“1059.2034322 

7 

0.87?4453 

-47.7106962 

-1052.3784489 

8 

1. 34^7501 

-37.5205923 

-1054.6502147 

9 

0.0019397 

-22.4668719 

-1048.0564975 

10 

-0,0019397 

0.0000000 

-1047.6196699 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

0.0000000 

-10*0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

o.ooooooo 

14 

O.OOCOOOO 

-19.0000000 

0.0000000 
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• 

O.OOCOOOO 

-10*0000000 

o.ooooooo 

16 

O.OOcOOOO 

-10.0000000 

o.ooooooo 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

O.OOOOOOO 

-19.0000000 

0.0000000 
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u 
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p 

1 

O.OOcOOOO 

-21.9601812 

-1087.9624498 

2 

"0,6239120 

-21.9601812 

-1087.9624498 

3 

-0.9473307 

-24.5935045 

-1089.2295421 

4 

-0.6929861 

-29.0861577 

-1090.9900398 

b 

0.5456726 

-36.5081489 

-1092.8204518 

6 

-0.0649632 

-45.4133928 

-1102.9154391 

7 

0.46n4113 

-48.2745085 

“1100.3299852 

6 

1.47c,19l0 

-38.6867214 

-1100.0723534 

9 

0.00?0147 

-21.0946059 

-1093.4634928 

in 

-0.00o0147 

0.0000000 

-1092.9610164 

11 

O.OOrOOOO 

-10.0000000 

0.0000000 

12 

o.oopncoo 

-10.0000000 

0.0000000 

13 

0.00CO000 

-10.0000000 

0.0000000 

14 

C.OOCOOOO 

-10.0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

o.oopoooo 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 
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u 

V 

p 

1 

O.OOpOOOO 

-20.6628442 

-1131.3066774 

2 

-0.6507896 

-20. o628442 

-1131.3066774 

3 

-0 , 98f,5006 

-23.7150868 

-1132.5740491 

4 

-0.7300576 

-29.0021066 

-1134.4149292 

5 

0.17«4079 

-37.3405188 

-1137,1066750 

6 

-0.2307453 

-45.0010747 

-1144.8925131 

7 

0.07p4051 

-48.5636894 

-1150.1829468 

0 

1.67?0768 

-40.4250029 

-1147.0397238 

9 

0.0021016 

-19.5387861 

-1143.3270623 

10 

-0 . 00pl016 

0.0000000 

-1142.7005057 

11 

O.oopoooo 

-10.0000000 

0.0000000 

12 

0.0000000 

-10.0000000 

0.0000000 

13 

P.09p"0P0 

-10.0000000 

0.0000000 

14 

c.ooonooo 

-10.0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

o.oopoooo 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

O.ODoOOOO 

-10.0000000 

0.0000000 

L=  34 

K 

u 

V 

p 

1 

o.ooponoo 

-19.281623° 

-1175.4457515 

2 

-0.6928425 

-19.2816239 

-1175.4457515 

3 

-1.05q9559 

-22.7669269 

-1176.9867365 

4 

-0 . 85q5240 

-28.8216107 

-1179.4761990 

5 

-0.4116542 

-37.6096487 

-1183.7304246 

6 

-0.4938803 

-44.8210262 

-1191.9400890 

7 

-0. 1077552 

-48.8978658 

-1201.2344461 

6 

1.8136792 

-42.4803708 

-1199.4885050 

9 

0.0022030 

-17.8510444 

-1201.5936386 

in 

-0.0022030 

0.0000000 

-1200.8759428 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

o.oocnooo 

-10.0000000 

0.0000000 

13 

o.oooocoo 

-10.0000000 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 
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o.oopoooo 

-10.0000000 

0.0000000 
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o.oopnpoo 

-10.0000000 
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0.0000000 

-10.0000000 
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U 
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1 

o.oonoooo 

-17.7929228 

-1220.2209842 

2 

-0.7467107 

-17.7929228 

-1220.2209842 

3 

-1.1619476 

-21.7188766 

-1222.3403484 

4 

-1.0806561 

-28.4575228 

-1226.2305666 

5 

-1.0359859 

-37.3549659 

-1233.3510399 

6 

-0.87C7759 

-44.7773270 

-1242.9710806 

7 

-0.02q5833 

-49.6601120 

-1253.7553955 

a 

1.7072297 

-44.3490993 

-1260.5380502 

9 

0.00?3214 

-16.2629366 

-1268.0795279 

in 

-0.0023214 

0.0000000 

-1267.4910810 

11 

O.OCpOOOO 

-10.0000000 

0.0000000 

12 

0.0000000 

-10.0000000 

o.ocooooo 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

o.oonoooo 

-10.0000000 

0.0000000 

15 

0.0000000 

-19.0000000 

0.0000000 

16 

o.oonoooo 

-10.0000000 

0.0000000 

17 

0.0000000 

-19.0000000 

o.ocooooo 

18 

-  35 

o.ooonooo 

-10.0000000 

0.0000000 

J 

V 

p 

X 

o.oonoooo 

-16.1709398 

-1265.1441109 

2 

-0.3134976 

-16.1709398 

-1265.1441109 

3 

-1.2986379 

-20.5333099 

-1268.0530970 

4 

-1.3913201 

-27.8301869 

-1273.0465194 

5 

-1 ,5874746 

-36.7364835 

-1284.2539747 

6 

-1. 2172970 

-44.8390037 

-1296.8277980 

7 

0.1142202 

-59.8944385 

-1309.7818059 

8 

1.3214640 

-45.6698254 

-1325.8278791 

9 

0 . 00?4596 

-15.0352031 

-1335.6289317 

in 

-0.0024596 

0.0000000 

-1335,3836505 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

o.oocoooo 

-10.0000000 

0.0000000 

13 

o.ooonooo 

-10.0000000 

0.0900000 

14 

o.oonoooo 

-19.0000000 

0.0000000 

15 

o.ooonooo 

-19.0000000 

o.ocooooo 

16 

o.oocoooo 

-10.0000000 

0.0000000 

17 

o.oocoooo 

-10.0000000 

0.0000000 

18 

-  37 

o.ooonooo 

-10.0000000 

0.0000000 

u 

V 

p 

1 

O.OOCOOOO 

-14.3826196 

-1309.6050781 

2 

-0.8968298 

-14.3826196 

-1309.6050781 

3 

-1.4814356 

-19.1598065 

-1313,4324041 

4 

-1, 77^5331 

-26.8846549 

-1321.4357619 

5 

-2 , 0173961 

-35.9587729 

-1335.0755398 

6 

-1.4314029 

-45.0451475 

-1351.0CC4821 

7 

0.1511175 

-52.3638651 

-1368.4610513 

8 

C. 9112755 

-46.5149581 

-1389,4221981 

9 

0.0026190 

-14. 1906867 

-1398.6589064 

in 

-0.0026190 

9.0000000 

-1398.6970719 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

o.oonoooo 

-10.0000000 

0.0000000 

13 

O.OOCOOOO 

-10.0000000 

0.0000000 

14 

0.0000000 

-19.0000000 

0.0000000 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

o.oonoooo 

-10.0000000 

0.0000000 

18 

o.oocoooo 

-10.0000000 

0.0000000 

=  38 

u 

V 

p 

1 

O.OOpOOOO 

-12.3849273 

-1353.1096515 

2 

-1.0016974 

-12.3849273 

-1353.1096515 

3 

-1.71*0967 

-17.5409313 

-1357.8537155 

4 

-2.2012109 

-25.6214842 

-1368.0795070 

5 

-2.3440472 

-35.1702794 

-1384.9536565 

6 

-1.5254509 

-45.4373851 

-140o. 3140240 

7 

0.0776529 

-53.8390972 

-1428.1783861 

8 

0.7445161 

-47.2483639 

-1451.1453596 

9 

0.0028005 

-13.502235Q 

-146*. 9771254 

10 

-0.0028005 

0.0000000 

-1462.1205118 

11 

O.OOpOOOO 

-IO.OOOOOOQ 

0.0000000 

12 

o.ooonooo 

-iO.OOOOOOO 

0.0000000 

13 

0.0000000 

-10*0000000 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

O.OOpOOOO 

-10*  0O00000 

0.0000000 

16 

O.OOpOOOO 

-10.0000000 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

18 

O.OOpOOOO 

-10.0000000 

0.0000000 

,=  39 

u 

V 

p 

1 

O.OOpOOOO 

-10.1221569 

-1395.6821014 

2 

-1.1344352 

-10.1221569 

-1395.6821014 

3 

-2. Oli 5207 

-15.6196052 

-1401.1555214 

4 

-2.62*4815 

-24.0829956 

-1413.2172105 

5 

-2.6235399 

-34.4271455 

-1433.2521011 

6 

-1.6023830 

-45.9928367 

-1459.3802069 

7 

-0.1038604 

-55.1862888 

-1488.7393874 

8 

0.6535582 

-48.0518036 

-1515.7446687 

9 

0.0030033 

-12.8991486 

-1531.7628954 

10 

-0  •  00.^0033 

0.000000c 

-1531,9501658 

11 

O.OOpOOOO 

-to.ooooooo 

0.0000000 

12 

O.OOponoO 

-10.0000000 

C.OOOjOOO 

13 

O.OOpOOOO 

-10.0000000 

0.0000000 

14 

O.OOpOOOO 

-IO.OOOOOOO 

0.0000000 

15 

o.ooonooo 

-10.0000000 

0.0000000 

16 

o.ncooooo 

-IO.OOOOOOO 

0.0000000 

17 

o.oocoooo 

-IO.OOOOOOO 

0.0000000 

18 

-  40 

0.0000000 

-IO.OOOOOOO 

0,0000000 

u 

V 

p 

1 

O.OOpOOOO 

-7.5282578 

-1438.3790132 

2 

-I.30c2.142 

-7.5282578 

-1438.3790132 

3 

-2.3605570 

-13.3437280 

-1444.2135815 

4 

-3. 0644949 

-22.2984098 

-1457.3631298 

5 

-2, 94p50l6 

-33.6974893 

-1480.0064501 

6 

-1.8254875 

-46.5824150 

-1510.9451164 

7 

-0.5033405 

-56.3007817 

-1549.8224322 

8 

0.16g6290 

-48.7031136 

-1583.7805208 

9 

0.0032254 

-12.7482397 

-1597.7448274 

in 

-0.00^2254 

0.0000000 

-1598.0379891 

.1.1 

O.OOpOOOO 

-10.0000000 

0.0000000 

12 

0.0000000 

-IO.OOOOOOO 

0.0000000 

13 

O.OOpOOOO 

-10.0000000 

0.0000000 

14 

O.OOCOOOO 

-10.0000000 

0.0000000 

_ 

0.0000000 

0.0000000 

0.00CO000 

o.onooooo 

u 

O.OOpOCOO 

-1.49«5760 

-2.7617680 

-3.5599902 

-3.4003539 

-2.35f,2798 

-1.20C2769 

-0.6333273 

0.0034641 

-0.0034641 

C.0CCn000 

0.0000000 

O.OOpPOOO 

0.0000000 

O.OOpOOOO 

o.oopnooo 

0.0000000 

0.0000000 

u 

O.OOPOOOO 
-1. 7171370 
-3.2068017 
-4.1614103 
-4.0779796 
-3.20M2786 
-2.0669913 
-1.02ci6894 
0.0037159 
-0.0037159 
0.0000000 
O.OOpOOOO 
O.OOpOOOO 

o.oopnooo 

O.OOpOOOO 

O.OOpPOOO 

n. onpPOOO 
O.OOpOOOO 

u 

o. oopnooo 

-1.9141533 
-3, 67^7005 
-4,88*2360 
-4,95.12300 
-4,1877640 
-2.7792889 
-1.3067802 
0.0P39775 
-0.0039775 
0.0000000 


-10*0000000 

-10.0000000 

-10*0000000 

-10.0000000 

V 

-4.5380912 

-4.5380912 

-10.6654746 

-20*2405058 

-32.8672964 

-46.9912753 

-57.1378112 

-49.1333187 

-13.3473020 

0.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-10.0000000 

-lo.oonoooo 

-10.0000000 

-10.0000000 

-10.0000000 

V 

-1.1112795 

-1.1112795 

-7.5398953 

-17.8172465 

-31.7784905 

-47.0561128 

-57.8041837 

-49.9370191 

-14,3168746 

0.0000000 
-10. oooooop 
-10.0000000 
-10.0000000 
-10. oooooop 
-10.0000000 
-10.0000000 
-10.0000000 
-10.0000000 

V 

2.7090766 

2.7090766 

-3.9248161 

-14.8948472 

-30.3150017 

-46.8091767 

-58.5842617 

-51.1001326 

-15.5456552 

0.0000000 

-10.0000000 


0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

-1483.7713216 

-1483.7713216 

-1489.5055306 

-1502.7575989 

-1526.9875575 

-1562.0033678 

-1607.9730403 

-1644,3161157 

-1645.1571372 

-1645.3744148 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

-1536.1473945 

-1536.1473945 

-1541.4337118 

-1553.8428028 

-1578.2781739 

-1614,7478905 

-1659.7823475 

-1686.4323292 

-1688,5407504 

-1688,5842618 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

-1600,8223270 

-1600.82232^0 

-1606.1013241 

-1617.6608068 

-1640.1314784 

-1673.1461187 

-1710.3041012 

-1729,7872019 

-1731.1181922 

-173u.9879561 

0.0000000 
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12 

o.ooo°ooo 

-10. ooooooo 

0.0000000 

13 

O.OOpOOOO 

-10. ooooooo 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

0.0000000 

-10. ooooooo 

0.0000000 

16 

o.ooo°ooo 

-10.0000000 

0.0000000 

17 

0.000n000 

-10. OOOOOOO 

0.0000000 

18 

O.OOpOOOO 

-10. OOOOOOO 

0.0000000 

L=  44 

K 

u 

V 

p 

1 

O.OOpOOOQ 

6.4780799 

-1679.5670290 

2 

-1. 88*7191 

6.4780799 

-1679.5670290 

3 

-4. 1319691 

0.3192238 

-1690.4580642 

4 

-5.6841335 

-11.3851216 

-1704.3888245 

5 

-5.88?3688 

-28.4698833 

-1720.3617704 

6 

-5 . 08ql345 

-46.3887230 

-1743.6368067 

7 

-3.35C9181 

-59.5604934 

-1768.6794933 

b 

-1 . 58r,7876 

-52.4907507 

-1777.0159294 

9 

0.0042447 

-17.0354402 

-1772.6088923 

in 

“0 . 0042447 

0. ooooooo 

-1772.2585660 

11 

o.ocooooo 

-10. ooooooo 

O.OCOOOOO 

12 

0.0000000 

-10. ooooooo 

0.0000000 

13 

0.00on000 

-10. OOOOOOO 

0.0000000 

14 

o.oopoooo 

-10. OOOOOOO 

0.0000000 

15 

0.0000000 

-10. ooooooo 

0.0000000 

16 

o.oopoooo 

-10. OOOOOOO 

0.0000000 

17 

0 . 00on000 

-10.0000000 

0.0000000 

18 

O.OOPOOOO 

-10. ooooooo 

0. ooooooo 

L=  45 

K 

u 

V 

p 

1 

O.OOcOOOO 

14.6186573 

-1804.0536579 

2 

-4.0747339 

14.6186573 

-1804.0536579 

3 

-4. 7249329 

3.8962002 

-1802.3449604 

4 

-6,30^,6460 

-7.6042862 

-1827.0998870 

5 

-6,6548575 

-26.2749799 

-1825.3202040 

6 

-5.7921015 

-45.8741847 

-1831.8166819 

7 

-3,74i 4213 

-60.7501090 

-1840.5311045 

8 

-1.6915402 

-54.1282587 

-1828.9568324 

9 

0.0045110 

-18.6245121 

-1813.5686454 

10 

-0.0045110 

0. ooooooo 

-1813.0897035 

11 

o.oopoooo 

-10. ooooooo 

0. ooooooo 

12 

0.0000000 

-10. ooooooo 

0.0000000 

13 

O.OOCOOOO 

-10. ooooooo 

0.0000000 

14 

O.OOcOOOO 

-10. ooooooo 

0.0000000 

15 

C.oopnooo 

-10. ooooooo 

0.0000000 

16 

O.OOpOOOO 

-10. ooooooo 

0.0000000 

17 

c. ooooooo 

-10. ooooooo 

0.0000000 

18 

O.OOCOOOO 

-10. ooooooo 

0.0000000 

L=  46 

K 

u 

V 

p 

1 

O.OOpOOOO 

14.9199745 

-1925.3411752 

2 

-0.15^2941 

14.9199745 

-1925.3411752 

3 

-8.51^6396 

15.1374444 

-1996.7666876 

4 

-5.9754948 

-7.2509240 

-1997.8735831 

5 

-6.9940013 

-23.4098312 

-1951.2503271 

6 

-6.1945283 

-45.2143043 

-1937.7044451 

7 

-3.78^6869 

-62.2576088 

-1932.6258127 

8 

-1.4567509 

-56.0597859 

-1898.1218387 
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9 

0.0059688 

-19.9962653 

-1852.5101852 

10 

-0.0036950 

0.0000000 

-1852.8769959 

11 

0,0000000 

-10.0000000 

0.0000000 

12 

O.OOoOOOO 

-10.0000000 

0.0000000 

13 

C.OOCPOOO 

-10.0000000 

0.0000000 

14 

0.00cn000 

-10.0000000 

0.0000000 

15 

o,ooe°ooo 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

O.OOoOOOO 

-10.0000000 

0,0000000 

18 

,=  47 

O.OOOOOOO 

-10.0000000 

0.0000000 

u 

V 

p 

1 

O.OOoOOOO 

2.4666596 

-1886.0537296 

2 

6.22] 9077 

2.4666596 

-1886.8537296 

3 

10,82*1753 

4.8435224 

-2029.6445165 

4 

-3.15*3171 

5.1933441 

-2101,9010854 

5 

-6.62*2764 

-18.5505470 

-2076.4189635 

6 

-6.2950439 

-44.1162154 

-2052.2238363 

7 

-3.4207452 

-64.2549530 

-2057,8970250 

8 

-0.4249512 

-58.7659344 

-2026.3216694 

9 

-0.0544809 

-20.3420555 

-1783.1510354 

in 

0.00on000 

-10.0000000 

0.0000000 

11 

0.0000000 

-10.0000000 

0.0000000 

12 

O.OOOOOOO 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

O.OOOOOOO 

14 

0.00nn000 

-1C.0000000 

0.0000000 

15 

O.OOoOOOO 

-10.0000000 

0.0000000 

16 

O.OOOOOOO 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

,=  48 

u 

V 

p 

1 

0.0000000 

-0.&R90116 

-1815.1779708 

2 

1 . 57?6660 

-0.6890116 

-lol5, 1779708 

3 

4,37q4715 

0.0422457 

-1962.4202375 

4 

0.7637725 

7.7713452 

-2180.5690464 

5 

-5.4736280 

-11.6470918 

-2196.4564596 

6 

-6.4636752 

-41.8065302 

-2157.4890849 

7 

-3.0613174 

-66.7980894 

-2230.1036168 

8 

3.05*3267 

-64.8898542 

-2337.9675340 

9 

-0 . 17?f'533 

-17.3166517 

-2493,0419636 

10 

0.0060000 

-10. ooooooo 

0.0000000 

11 

O.OOoOOOO 

-10.0000000 

O.OOOOOOO 

12 

0.0000000 

-10. OOOOOOO 

0.0000000 

13 

0.000°000 

-10.0000000 

O.OOOOOOO 

14 

O.OOOOOOO 

-10. ooooooo 

0.0000000 

15 

0.0000000 

-10. OOOOOOO 

0.0000000 

16 

O.OOOOOOO 

-10. OOOOOOO 

o.oooocoo 

17 

O.OOoOOOO 

-10. OOOOOOO 

0.0000000 

18 

O.OOoOOOO 

-10. OOOOOOO 

0.0000000 

-  49 

u 

V 

p 

1 

O.OOpOOOO 

-10.0000000 

0.0000000 

2 

O.OOoOOOO 

-10.0000000 

0.0000000 

3 

-7,92q5501 

-10. OOOOOOO 

0.0000000 

4 

7.7525625 

-7 . 8859668 

-2202.6059826 

5 

-3.10q41<33 

-1.4554800 

-2233.2070078 
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6 

-7.6249190 

-36.1053802 

-2229,b427984 

7 

-4.63fi9B94 

-68.6761588 

-2420.2963759 

0 

0. 53i4005 

-69.7S13148 

-2746.6394801 

9 

-0.1014509 

-16.7239975 

-3003.3855189 

10 

O.OOnOOOO 

-10.0000000 

0.0000000 

11 

o.ooeoooo 

-io.ooooooo 

0.0000000 

12 

O.OOpOOOO 

-10.0000000 

0.0000000 

13 

0.0000000 

-10.0000000 

0.0000000 

14 

O.OOpOOOO 

-10.0000000 

0.0000000 

15 

O.OOpOOOO 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

18 

=  50 

O.OOpOOOO 

-10.0000000 

0.0000000 

u 

V 

p 

1 

0.0000000 

-10.0000000 

0.0000000 

2 

O.OOpOOOO 

-10.0000000 

0.0000000 

3 

O.OOpOOOO 

-10.0000000 

0.9000000 

4 

0.8679453 

-10.0000000 

0.3000000 

5 

-1 . 37flb837 

0.8527263 

-2340.5131374 

6 

-10.69q7289 

-25.4495509 

-2329.2128046 

7 

-9. I5ql323 

-68.4187494 

-2536.0452494 

8 

-3.73s2296 

-74.1907001 

-3034.1101859 

9 

0.6393637 

-20.9045600 

-3282.7533085 

10 

O.OOpOOOO 

-10.0000000 

0.0000000 

11 

O.OOpOOOO 

-10.0000000 

0.0000000 

12 

O.OOpOOOO 

-10.0000000 

0.0000000 

13 

O.OOCPOOO 

-10.0000000 

0.0000000 

14 

O.OOpOOOO 

-10.0000000 

0.0000030 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

O.OOpOOOO 

-10.0000009 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

18 

O.OOpOOOO 

-10.0000000 

0.0000000 

.=  51 

i 

u 

V 

p 

1 

0.0P0O000 

-10.0000000 

0.0000000 

2 

O.OOpOOOO 

-10.0000000 

0.0000000 

3 

O.onpoc  10 

-10.0000000 

0.0000000 

4 

O.OOpOOOO 

-10.0000000 

3.0000000 

5 

3.89^2115 

-10.0000000 

o.oooooco 

6 

-14.0690284 

-6.3685837 

-2658.6879839 

7 

-15.92?0656 

-63.8478756 

-2505.6760062 

8 

-7.71*3429 

-80.5835098 

-7166,4481808 

9 

0.2538849 

-28.3921167 

-5356.4116408 

10 

O.OOpOOOO 

-10.0000000 

0.0000000 

11 

0.0000000 

-10.0000000 

o.oooooco 

12 

O.OOpOOOO 

-10.0009000 

0.0000000 

13 

o.ooeoooo 

-lO.OOOOOOO 

o.ocooooo 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

O.OOpOOOO 

-10.0000000 

0.0000000 

16 

0.00pn000 

-ic.oopoooo 

0.0000000 

17 

O.OOpOOOO 

-10.0000000 

0.0000000 

18 

O.OOpOOOO 

-10.0000000 

0.0000000 

.=  52 

u 

V 

p 

1 

O.OOpOOOO 

-10.0000000 

0.0000000 

2 

o.ooeoooo 

-10.0000000 

0.0000000 

3 

o.ooooooo 

-10.0000000 

4 

o.ooooooo 

-10.0000000 

5 

11  •  03*3042 

-10.0000000 

6 

-8.7336346 

13.1279802 

7 

-24.8936653 

-44.6384065 

8 

-34.46*3281 

-66.4308406 

9 

-4.6010386 

-55.6848310 

10 

0.0000000 

17.2093526 

11 

o.ooooooo 

-10*0000000 

12 

o.oopoooo 

-10.0000000 

13 

0.0000000 

-10.0000000 

14 

o.oopoooo 

-io.ooooooo 

15 

O.OOPOOOO 

-10.0000000 

16 

0.0000000 

-10.0000000 

17 

0.0000000 

-10.0000000 

18 

c.0000000 

-10.0000000 

L=  53 
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u 
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1 

p.p^opoo 

-10.0000000 

2 

o.oopoooo 

-io.ooooooo 

3 

o.oopoooo 

-10.0000000 

4 

o.ooooooo 

-10.0000000 

5 

-1.84q8273 

-IO.OOOOOOO 

6 

0.6646684 

10.7269044 

7 

-9.89*3916 

-33.2441505 

8 

-9.0742799 

-65.8013768 

9 

-6.96*0420 

-56.7313954 

10 

10.89*5994 

-0.8981968 

11 

o.ooooooo 

-10.0000000 

12 

0,0000000 

-10*0000000 

13 

0.0000000 

-io.ooooooo 

14 

O.OOPOOOO 

-10.0000000 

15 

o.oopoooo 

-10.0000000 

16 

P.0000000 

-10.0000000 

17 

o.oopoooo 

-IO.OOOOOOO 

18 

o.oopoooo 

-10.0000000 

L=  54 

K 

u 
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1 

O.OOpPOOO 

-10.0000000 

2 

O.OOPOOOO 

-IO.OOOOOOO 

3 

o.oopoooo 

-10.0000000 

4 

o.oopoooo 

-10.0000000 

5 

-6,21u5130 

-10.0000000 

6 

3,65p3850 

1.2398723 

7 

10.70*3762 

-41.7020530 

8 

3.7512957 

-59.9670313 

9 

-3.97P8870 

-49.0022462 

10 

2.66*9086 

-7.4749160 

11 

0.000n000 

-10.0000000 

12 

0,0000000 

-10.0000000 

13 

o.oopoooo 

-10.0000000 

14 

o.oopoooo 

-10.0000000 

15 

o.oopoooo 

-10.0000000 

16 

0.0000000 

-10.0000000 

17 

o.oopoooo 

-10.0000000 

18 

O.OOpOfiOO 

-10.0000000 

L=  55 

0.0000000 

0.0000000 

0.0000000 

■2241,8237899 

■2241.7419267 

■1671.3421096 

1349.2407699 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

p 

0,0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

“1939.8427431 

-1934.1238823 

-880.2858298 

-41.0856515 

35.3639945 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocco 

0.0000000 

p 

0.0000000 

o.ooooooo 

0.0000000 

0.0000000 

0.0000000 

-1987.8413763 

-1805,8980119 

-675,4626115 

454,0255521 

659.0322559 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 
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la 

17 
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L=  57 
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3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 
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O.OOoOOOO 

o.oocnooo 

O.OOcOOOO 

o.oocoooo 

-5.74r9237 
14.2916791 
31.5379404 
22,9458012 
2. 29j8534 
-1.12a8065 
O.OOcOOOO 
0.0000000 
0.0000000 
O.OOoOOOO 

o.noonooo 

o.oonoooo 

o.oocoooo 

C.OOciOOOO 


O.OOCOOOO 
0.000n000 
O.OOCOOOO 
■91.74*2833 
57.7631138 
87.6653433 
67.35ql949 
37.6721635 
2. 25ft3450 
-1.79H037 

o.oocoooo 

0.0000000 

0.0000000 

c.000n000 

0.0000000 

O.OOCOOOO 

0.0000000 

0.0000000 


O.OOoOOOO 

0.0000000 

■66.2976310 
67.Hli 9279 
82.1646686 
71.61bl6l6 
47.4819653 
-2, 23i 9803 
-0,7900204 
0.2692652 
0.00Cn000 
0.000°000 
o.oocoooo 

O.OOOOOOO 

O.OOCOOOO 

0.0000000 


>10.0000000 

>10.0000000 

•10.0000000 

■10.0000000 

91.2245519 

•19.7608359 

•63.1230831 

•55.5735648 

•30.0384369 

-4.1346366 

•10.0000000 
•10.0O00000 
•10 . 0O00000 
■10.0000000 
■10.0000000 
-10.0000000 
•10.0O00000 
•10.0000000 


•10.0000000 

•10.0000000 

■10.0O00000 

66.7213745 

•53.4464046 

•65.8341736 

-56.9175430 

•33.9734089 

2.7057737 

-0.1252179 

■10.0000000 

■10.0000000 

■10.0000000 

•10.0O00000 

-10.0000000 

-IO.0O0O0OC 

•10.0O00000 

-10.0000000 


3.1215359 

3.1215359 

-0.2734088 

•67.7059501 

•89.2536588 

•72.3617412 

•43.6177567 

12.2523122 

1.4577353 

-1.1882713 

•10.0000000 

•10.0000000 

•10.0000000 

•IO.QO0O0OO 

•10.0000000 

-lO.OOOOOOO 


0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOOOO 

•5826.4608730 

•2226.7240894 

-11.3308048 

924.9372785 

1077.7477969 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

O.OOOOOOO 

0.0000000 

0.0000000 

0.0000000 


0.0000000 

0.0000000 

0.0000000 

0.0000000 

1611.7630203 

581.6073869 

-521.4857389 

239.1475593 

758.0634360 

1135.0159210 

0.0000000 

0.0000000 

O.OOOOOOO 

O.OOOOOOO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 


0.0000000 

0.0000000 

0.0000000 

4521.3531752 

1773.7367053 

76.5063718 

-680.0063182 

-276.3591897 

314.1016443 

330.8744174 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 
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17 

0.0000000 

-10.0000000 

o.ooooooo 

ie 

o.oocoooo 

-10*0000000 

o.ooooooo 

.=  50 

< 

U 

V 

p 

1 

O.OOcOOOO 

-11.1752063 

12336.2062993 

2 

7.1425916 

-11.1752063 

12336.2062993 

3 

26.8606447 

-31.3382827 

12053.7736016 

4 

58.0243520 

-115.8561748 

2086.8569289 

5 

61.62^1807 

-109.9570305 

490.4133496 

6 

38.1070307 

-59.9298611 

-918.8340534 

7 

-12.0279596 

4.1399569 

-1359.9464905 

0 

-0.8863377 

2.0927758 

-1467.5873753 

9 

1.4104599 

-0.8844587 

365.1631777 

10 

0.0000000 

-10.0000000 

o.ooooooo 

11 

0.0000000 

-n.ooooooo 

o.ooooooo 

12 

C.OOo^OOO 

-10.0000000 

O.OOOOOOO 

13 

c.oopoooo 

-10.0000000 

o.ooooooo 

14 

o.oocoooo 

-10.0000000 

o.ooooooo 

15 

0.0000000 

-10.0000000 

o.ooooooo 

16 

O.OOCOOOO 

-10.0000000 

o.ooooooo 

17 

0.0000000 

-10.0000000 

0.0000000 

10 

O.OOCOOOO 

-10.0000000 

0.0000000 

L=  59 

K 

u 

V 

p 

1 

O.OOCOOOO 

-67.6995300 

10762.8804194 

2 

28.2579028 

-67.6995300 

10762.8804194 

3 

66.4000069 

-101.0398702 

8295.9867318 

4 

50.34-^7944 

-123.1539608 

2537.5178878 

5 

38.52*3070 

-110.8407839 

-1033.8737492 

6 

-10.4146436 

-14.1181769 

-1987.2607340 

7 

3.9300387 

-9.6310310 

-1753.9994654 

0 

o.ooooooo 

-10.0000000 

O.OOOOOOO 

9 

0.00c°000 

-10.0000000 

0.0000000 

10 

o.ooooooo 

-10.0000000 

U.0000000 

11 

o.oocoooo 

-10.0000000 

0.0000000 

12 

o.oocoooo 

-10.0000000 

0.0000000 

13 

o.oocoooo 

-10.0000000 

o.ooooooo 

14 

o.oocoooo 

-10.0000000 

0.0000000 

15 

O.OOOOOOO 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

o.oocoooo 

-19.0000000 

0.0000000 

10 

o.oocoooo 

-10.0000000 

0.0000000 

L=  60 

K 

u 

V 

p 

1 

O.OOcOOOO 

-103.7774128 

7875.0812311 

2 

18.0357771 

-103.7774128 

7875.0812311 

3 

17.9017810 

-112.8894924 

5633.4267606 

u 

14.9614844 

-126.8144441 

2524.0254824 

5 

13.421 8359 

-113.3428006 

-1689.3799279 

6 

-28, 30fl7343 

29.2625580 

-3215.0677268 

7 

o.oocoooo 

-10.0000000 

0.0000000 

0 

O.OnoOOOO 

-19.0000000 

O.OOOOOOO 

9 

O.OOOOOOO 

-10.0000000 

0.0000000 

10 

O.OOCOOOO 

-10.0000000 

o.ooooooo 

11 

O.OOOOOOO 

-10.0000000 

0.0000000 

12 

0.0000000 

-10.0000000 

0.0000000 

13 

o.oocoooo 

-10.0000000 

0.0000000 
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14 

0.0000000 

-10*0000000 

0.0000000 

15 

p.oopoooo 

-10*0000000 

0.0000000 

16 

O.OOnOOOO 

-10*0000000 

0.0000000 

17 

0.0000000 

-10*0000000 

0.0000000 

18 

O.OOoOOOO 

-10*0000000 

0.0009000 

L=  61 
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u 

V 

p 

1 

0.0000000 

-100.9282577 

6299.4255920 

2 

-1.42, ,9879 

-100.9282577 

6299.4255920 

3 

-6.9572740 

-104.5676307 

5401.5514304 

4 

-18.39^*447 

-110.3089037 

3313.5332961 

5 

-24.49/i2339 

-101*1141646 

-268.0738796 

6 

23.5034473 

-I8,b34l695 

-3317.7078937 

7 

o.oopoooo 

4.4151714 

0.0000000 

8 

0.0000000 

-10.000000* 

0.0000000 

9 

o.oopoooo 

-10.0000000 

0.0000000 

10 

o.oco°ooo 

-10.0000000 

0.0000000 

11 

o.oopoooo 

-10*0000000 

0.0000000 

12 

0.0000000 

-10*0000000 

0.0000000 

13 

o.ooonooo 

-10.0000000 

0.0000000 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

P.0000000 

-10.0000000 

0.0000000 
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o.oopoooo 

-10.0000000 

0.0000000 

17 

o.oopoooo 

-10.0000000 

0.0000000 
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o.oopoooo 

-10.0000000 

0.0000000 
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p 

1 

o.oopoooo 

-82*0268176 

7249.2925127 

2 

-9,45p4l47 

-82*0268176 

7249.2925127 

3 

-24.2235413 

-78.5732798 

6937.6349498 

4 

-48,78^0070 

-71.1473010 

6551.7301161 

5 

-71.0051447 

-61.7820285 

6843.1646426 

6 

-30.8816820 

-47.4380437 

9759.1740687 

7 

-2, 11?7798 

-21.3554438 

11156.9516855 

8 

-2. 3212576 

-9.4508944 

11039.9224358 

9 

C.OOppPOO 

-10.0000000 

0.0000000 

10 

0.0000000 

-10.0000000 

0.0000000 

11 

O.OOoOOOO 

-10.0000000 

0.0000000 

12 

0. 000*000 

-10.0000000 

0.0000000 

13 

o.oopoooo 

-10.0000000 

0.0000000 

14 

O.OOPOOOO 

-10.0000000 

0.0000000 

15 

o.oopoooo 

-10.0000000 

0.0000000 

16 

o.oopoooo 

-lO.OOOOOOO 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

L=  63 
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u 

V 

p 

1 

o.oopoooo 

-61.0513538 

8974.6271123 

2 

-I0.48fl8464 

-61.0513538 

8974.6271123 

3 

-19.9424645 

-58.9772038 

9091.1351193 

4 

-26.6532000 

-55.1183693 

9374.7530927 

5 

-30 . 72q5561 

-49.5087102 

9748.5064019 

6 

-28.82?3471 

-42.7287024 

10250,0698092 

7 

-11.8039612 

-34.6807394 

10845.1576466 

8 

3. 09«9040 

-23.6842545 

10922.1556718 

9 

-8.4641266 

1.9203038 

10813.3572648 

10 

0.0000000 

-10.0000000 

0.0000000 
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11 

0,0000000 

-10.0000000 

0.0000000 

12 

o.ooenooo 

-10.0000000 

0.0000000 

13 

0,0000000 

-10.0000000 

O.OOOOOOO 

14 

0.0000000 

-10.0000000 

0.0000000 

15 

c.000n000 

-10.0000000 

O.OOOOOOO 

16 

0.000O000 

-10.0000000 

O.OOOOOOO 

17 

O.OOoOOOO 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

L=  64 
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1 

0.0000000 

-48.0237648 

10140.2689266 

2 

-6,51u4645 

-43.0237648 

10140.2689266 

3 

'*12,37^3922 

-46.8163989 

10192.4043643 

4 

-17.0440353 

-44.5687357 

10306.2742884 

5 

-19.62U230 

-41.6940223 

10471.1466032 

6 

-19 . 44<sl82fa 

-38.5640446 

10651.4581042 

7 

-15. 5734409 

-35.3689339 

10785.2859917 

8 

-7.50^,0854 

-29.9761403 

10758.5877674 

9 

3.6140152 

-8.9402761 

10557.2669330 

10 

O.OOoOOOO 

-10.0000000 

0.0000000 

11 

0.0000000 

-IO.OOCOOOO 

0.0000000 

12 

o.oornooo 

-10.0000000 

0.0000000 

13 

O.OOOOOOO 

-10.0000000 

0.0009000 
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O.OOoOOOO 

-10.0000000 

0.0000000 
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0.000O000 

-10.0000000 

0.0000000 

16 

0.0000000 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

0.0000000 

L=  65 
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u 

V 

p 

1 

O.OOoOOOO 

-39.2339587 

10699.1912733 

2 

-4.3952355 

-39.2339587 

10699.1912733 

3 

-8.4408472 

-38.4817481 

10720.8591449 

4 

-II.865O6OI 

-37.0899104 

10767,6330517 

5 

-14.5764716 

-35.2052815 

10827.6770013 

fa 

-16.7118967 

-32.9520442 

10889.1692507 

7 

-18.50?1603 

-30.3771906 

10942.5710077 

8 

-18. 3719682 

-27.2695485 

11003.0272539 

9 

-3.7242250 

-22.1141746 

11203.4913647 

in 

O.OOoOOOO 

-1.7042921 

0.0000000 

11 

0,0000000 

-10.0000000 

0.0000000 

12 

O.OOOOOOO 

-19.0000000 

0.0000000 

13 

O.OOOOOOO 

-10.0000000 

0.0000000 

14 

o.ooenooo 

-10.0000000 

0.0000000 

15 

o.oopeooo 

-19.0000000 

O.OOOOOOO 

16 

O.OOOOOOO 

-19.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0.0000000 

18 

0.0000000 

-10.0000000 

O.OOOOOOO 

L=  66 

K 

u 

V 

p 

1 

0.0000000 

-32.7809941 

11003.3453936 

2 

“3.22fa5659 

-32.7809941 

11003,3453936 

3 

-6.2917649 

-32.2437845 

11012.9590641 

4 

-9.087°317 

-31.2188104 

11034.5007415 

5 

-11.5596260 

-29.7830068 

11064.5493987 

6 

-13, 72q6098 

-27.9716820 

11100.0852222 

7 

— 15 , 6395679 

-25.7971689 

11139.6524618 
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8 

-17.1441833 

-23.2427102 

9 

-16.75fs6953 

-20.2422004 

10 

-0.9474240 

-16.4704140 

11 

o.occoooo 

-0.5778699 

12 

o.ooonooo 

-10.0000000 

13 

o.ocp*ooo 

-10.0000000 

14 

0.0000000 

-10.0000000 

15 

0. 00pn000 

-10.0000000 

16 

0.000*000 

-10.0000000 

17 

o. ocpoooo 

-10.0000000 

18 

0.0000000 

-10.0000000 

=  67 

u 

V 

1 

O.OOpOOOO 

-27.7731452 

2 

-2.5038268 

-27.7731452 

3 

-4.9176803 

-27.3558840 

4 

-7.1682177 

-26.5508436 

5 

-9.20?0882 

-25.4102226 

6 

-10.96f.1058 

-23.9664044 

7 

-12.3875807 

-22.2522296 

8 

-13. 3515997 

-20.2983048 

9 

-13.67^5399 

-18.1159643 

10 

-12.92r6770 

-15.6517979 

1.1 

-0.16J2654 

-12.6533406 

12 

o.oooocoo 

0.1379119 

13 

O.OCpOOOO 

-10.0000000 

14 

o.ocooooo 

-10.0000000 

15 

o.ooooooo 

-10.0000000 

16 

0.000*000 

-10.0000000 

17 

O.OOpOOOO 

-10.0000000 

18 

O.OOpOOOO 

-10.000000* 
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u 

V 

1 

0.0000000 

-23.8043524 

2 

-1.9841709 

-23.8043524 

3 

“3 .90 i 8744 

-23.4757982 

4 

-5.69f.b657 

-22.8357306 

5 

-7 . 3193691 

-21.9278596 

6 

-8.7238844 

-20.7788803 

7 

-9.8679575 

-19.4175338 

8 

-10.7055454 

-17.8776562 

9 

-11 , 1680695 

-16.1946934 

10 

-11.1207076 

-14.3875325 

11 

-10. 2417969 

-12.4073720 

12 

0.3643513 

-9.9969536 

13 

0.000*000 

0.5214294 

14 

0.00r*000 

-10.0000000 

15 

O.OOpOOOO 

-10.0000000 

16 

0.000*000 

-10.0000000 

17 

c.0000000 

-10.0000000 

18 

O.OOpOOOO 

-10.0000000 

=  69 

u 

V 

1 

O.OOpOOOO 

-20.6370538 

2 

-1.58.33387 

-20.6370538 

3 

-3.1149578 

-20.3776099 

4 

—4. 55p5652 

-19.8665647 

11185*6236479 

11253.2191473 

11385*5554285 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

o.oooocoo 

p 

11186.8556152 

11186.8556152 

11192.3685792 

11205.3072574 

11224.4010466 

11248.8709884 

11278.1510251 

11311.6719323 

11348.4818051 

11387.9755634 

11459.0904238 

6.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

11304.1952747 

11304.1952747 

11307.9379807 

11316.6216324 

11329.5559334 

11346.1807864 

11365.8829155 

11387.9882293 

11411.7673161 

11436.4244538 

11461.1223834 

11502.2087033 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

p 

11380.9534843 
11380.9534843 
11383. O028176 
11389.6015594 
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5 

-5,85pl222 

-19.1397460 

11398.4860974 

6 

-6,9650114 

-18.2191715 

11409,8714228 

7 

-7.91<}0730 

-17.1280686 

11423,3159023 

8 

-8.6305102 

-15.8926735 

11438.3040490 

9 

-9, 09q4525 

-14.5432414 

11454.2718540 

10 

-9.2925952 

-13.1119853 

11470.6656459 

3.1 

-9.11^2486 

-11.6174702 

11487.0134304 

12 

-0.26r8842 

-10.0162219 

11502.9529231 

13 

0.7333984 

-8.0561981 

11528.4317667 

14 

o.oopcooo 

0.8250144 

0.0000000 

15 

0.0000000 

-10.0000000 

0.0000000 

16 

o.oocoooo 

-10.0000000 

0.0000000 

17 

0.0000000 

-10.0000000 

0,0000000 

18 

o.oocoooo 

-10.0000000 

0,0000000 

L=  70 

K 

u 

V 

p 

1 

0.0000000 

-18.0966489 

11431.6749881 

2 

-1.2698404 

-18.Q966489 

11431.6749881 

3 

-2. 49qb453 

-17.8909115 

il433. 5947233 

4 

-3.6544986 

-17.4803033 

11437.8273931 

5 

-4.7052887 

-16.8942090 

11444,0639066 

6 

-5.6258691 

-16.1501907 

11452,0404051 

7 

-6.3941801 

-15.2665272 
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-7,3565535  11527,5357413 

7.3565535  11527.5357413 

V  P 

-7.7208541  11523,3792486 

-7.7208541  11523,3792486 

-7.7207811  11523.4874663 

-7.7140196  11523,6310783 

-7.7031311  11523.8079364 

-7.6888968  11524.0140381 
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7 

-0.l9fs3839 

-7.6719458 

11524,2940748 

8 

-0.2075765 

-7.6529563 

11524.4918997 

9 

-0.2118151 

-7.6327047 

11524.7501555 

1.0 

-0.2079886 

-7.6120441 

11525.0106464 

11 

-0 . 19f>3395 

-7.5919137 

11525.2649906 

12 

-0.1774879 

-7.5733262 

11525.5044336 

13 

-0.1523930 

-7.5573492 

11525.7204073 

14 

-0.1222729 

-7.5451700 

11525.9049955 

15 

-0, 08^3407 

-7.5382672 

11526.0512131 

16 

-0.05C6767 

-7.5365828 

11526.1529135 

17 

C.OOoOOOO 

-7.4056846 

11526.2020874 

18 

O.OOpOOOO 

7.4056846 

11526.2020874 
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K 

U 

V 

P 

1 

O.OOpOOOO 

-7.6594412 

11522.7104659 

2 

-0. 0307850 

-7.6594412 

11522.7104659 

3 

-0. 06p2323 

-7.6611105 

11522.8107693 

4 

-0.0876031 

-7.6571893 

11522.9391056 

5 

-0.1116710 

-7.6507004 

11523.0936120 

6 

-0.1314935 

-7.6421598 

11523.2704702 

7 

-0.1463080 

-7.6319800 

11523.4656754 

8 

-0.1555621 

-7.6205850 

11523.6742916 

9 

-0.15ft9324 

-7.6084725 

11523.8901722 

10 

-0. 15fe3705 

-7.5961639 

11524.1069841 

11 

-0.14fl0981 

-7.5842676 

11524.3183012 

12 

-0.1346395 

-7.5734272 

11524.5169523 

13 

-0.1167815 

-7.5643837 

11524.6963250 

14 

-0.0955<:41 

-7.5580220 

11524.8509246 

15 

-0.07?0314 

-7.5556809 

11524.9746973 

16 

-0.0462759 

-7.5583673 

11525.0632661 

17 

0.0000000 

-7.4505761 

11525.1102979 

18 

o.oonoooo 

7.4505761 

11525.1102979 
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V 

P 

1 

O.OOpOOOO 

-7.6168504 

11522.1573534 

2 

-0 , 02i 38°5 

-7.6168504 

11522.1573534 

3 

-0.0422042 

-7.6192346 

11522.2522552 

4 

-0. 06i4645 

-7.6173216 

11522.3695087 

5 

-0. 07*4405 

-7.6138604 

11522.5069719 

6 

-0, 09?4778 

-7.6092522 

11522.6615715 

7 

-0.1030396 

-7.6037644 

11522.8304202 

8 

-0.10q7363 

-7.5976408 

11523.0095136 

9 

-0. 11?3638 

-7.5911587 

11523.1939154 

in 

-0.1109050 

-7.6846100 

11523.3783173 

11 

-0.1055558 

-7.5783450 

11523.5577832 

12 

-0.0967357 

-7.5727367 

11523.7269114 

13 

-0.0850740 

-7.5682627 

11523.8806727 

14 

-0, 07i 4183 

-7.5655404 

11524.0145969 

15 

-0.0568259 

-7.5656470 

11524.1244930 

16 

-0.0417713 

-7.5701442 

11524.2065425 

17 

o.oocoooo 

-7.4911234 

11524.2554369 

18 

O.OOpOOOO 

7.4911234 

11524.2554369 

L=  89 

K 

U 

V 

P 

1 

0.000^000 

-7.5899442 

11521.7361162 

2 

-0.0135587 

-7.5899442 

11521,7361162 

3 

-0.0269989 

-7.5924263 

11521.8277584 
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4 

-0.0395656 

-7.5915825 

11521.9362574 

5 

-0.05p7305 

-7.5899309 

11522.0607753 

6 

-0.0600172 

-7*5877935 

11522.1995423 

7 

-0.0670674 

-7.5852931 

11522.3493921 

e 

-0. 0716307 

-7.58253q7 

11522.5072513 

9 

-0.0735927 

-7.5796461 

11522.6689289 

in 

-0.07?9597 

-7.5767538 

11522.8304202 

n 

-0.06q8966 

-7.5740220 

11522.9876275 

12 

-0.0647194 

-7.5716362 

11523.1366391 

13 

-0.0579239 

-7.5698591 

11523.2736367 

14 

-0.0502050 

-7.5690673 

11523.3954536 

15 

-0.0425443 

-7.5700057 

11523.4993892 

16 

-0,0356715 

-7.5742467 

11523.5820907 

17 

o.oonoooo 

-7.5259706 

11523.6375975 

16 

O.OOoOQOO 

7.5259706 

11523.6375975 

L=  90 

K 

u 

V 

P 

1 

o.oocnooo 

-7.5757933 

11521.4594203 

2 

-0,0071873 

-7.5757933 

11521.4594203 

3 

-0.01R1370 

-7.5771961 

11521.5468715 

4 

-0.02?623i 

-7.5766913 

11521.6492238 

5 

-0.02O2381 

-7.5760490 

11521.7654529 

6 

-0.0347284 

-7.5753357 

11521.0934166 

7 

-0.03*9110 

-7.5745538 

11522.0309729 

8 

-0.04i6669 

-7.5737234 

11522.1746760 

9 

-0.0429466 

-7.5728b37 

11522.3212662 

in 

-0. 04?7739 

-7.5720219 

11522.4677632 

11 

-0.0412701 

-7.5712410 

11522.6108144 

12 

-0.03*6569 

-7.5705819 

11522.7471600 

13 

-0.0352965 

-7.5701428 

11522.8742855 

14 

-0.0317401 

-7.5700820 

11522.9903283 

15 

-0.0280607 

-7.5707712 

11523.0951021 

16 

-0.0279569 

-7.5733380 

11523.1879550 

17 

o.ooonooo 

-7.5531651 

11523.2627402 

16 

o.oonoooo 

7.5531651 

11523.2627402 

L=  91 
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u 

V 

P 

l 

o.oonoooo 

-7.5700000 

11521.3313634 

2 

-0.0030115 

-7.5700000 

11521.3313634 

3 

-0.0070247 

-7.5700000 

11521.4175108 

4 

-0.0103841 

-7.5700000 

11521.5178142 

5 

-0.0132068 

-7.5700000 

11521.6298523 

6 

-0.0154948 

-7.5700000 

11521,7520418 

7 

-0.0172148 

-7.5700000 

11521,8824270 

6 

-0.01r3423 

-7.5700000 

11522.0177482 

9 

-0, O1r0646 

-7.5700000 

11522.1558633 

10 

-0. 01fl8098 

-7.5700000 

11522.2935128 

11 

-0, 01r2404 

-7.5700000 

11522.4280889 

12 

-0.0172712 

-7.5700000 

11522,5574496 

13 

-0, 01ftl034 

-7.5700000 

11522,6796391 

14 

-0.0150784 

-7.5700000 

11522.7943781 

15 

-0.0140804 

-7.5700000 

11522,9039016 

16 

-0.0172513 

-7.5700000 

11523.0147290 

17 

0,0000000 

-7.5700000 

11523.1482806 

16 

o.oonoooo 

7.5700000 

0.0000000 

L=  92 
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u 
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0,0000000 

C.000O000 

0.000"000 

o.ocroooo 

O.OOrOOOO 

O.OOpOOOO 

O.OOcOOOO 

O.OOpOOOO 

C.00cft000 

o.oonoooo 

O.OOpOOOO 

O.OOcOOOO 

O.OOpOOOO 

O.OOpOOOO 

0.00o"000 

O.OOpOOOO 

O.OOpOOOO 

O.OOCOOOO 


-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-7.5700000 

-10.0000000 


0,0000000 
11521.3313634 
11521. 4175108 
11521.5178142 
11521.6298523 
11521.7520418 
11521.0824270 
11522.0177482 
11522.1558633 
11522.2935128 
11522.4260889 
11522.5574496 
11522.6796391 
11522.7943781 
11522.9039016 
11523.0147290 
11523.1482606 
0.0000000 
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MISSION 

of 

Rome  Air  Development  Center 

RADC  is  the  principal  AFSC  organization  charged  with 
planning  and  executing  the  USAF  exploratory  and  advanced 
development  programs  for  electromagnetic  intelligence 
techniques,  reliability  and  compatibility  techniques  for 
electronic  systems,  electromagnetic  transmission  and 
reception,  ground  based  surveillance,  ground 
coomunications ,  information  displays  and  information 
processing.  This  Center  provides  technical  or 
management  assistance  in  support  of  studies,  analyses, 
development  planning  activities,  acquisition,  test, 
evaluation,  modification,  and  operation  of  aerospace 
systems  and  related  equipment. 


